AD-A228  563 


FINAL  REPORT 
VOLUME  2: 

TASK  2:  SEEKER  SCENE  EMULATOR 
CLIN  0006 


November  2.  1990 


MACROSTRUCTURE  LOGIC  ARRAYS 


S 


DTIC 

€LECTE 
NOV  13 1990 


Contract  No.  DASG60-85-C-0041 
Sponsored  By 

The  United  States  Army  Strategic  Defense  Command 


COMPUTER  ENGINEERING  RESEARCH  LABORATORY 

Georgia  Institute  of  Technology 
Atlanta,  Georgia  30332  -  0540 


Contract  Data  Requirements  List  Item  F006 
Period  Covered:  1985-1990 
Type  Report:  Final 

~Pjg^RlBUTION  STATEMENT 
Approved  fox  puiriic  reieas* 

_  Qiimoution  Uaiucaiod 


99  11 '  9  920 


DISCLAIMER 


DISCLAIMER  STATEMENT  -  The  views,  opinions,  and/or 
findings  contained  in  this  report  are  those  of  the  author(s)  and 
should  not  be  construed  as  an  official  Department  of  the  Army 
position,  policy,  or  decision,  unless  so  designated  by  other 
official  documentation. 


DISTRIBUTION  CONTROL 


(1)  DISTRIBUTION  STATEMENT  -  Approved  for  public  release; 
distribution  is  unlimited. 

(2)  This  material  may  be  reproduced  by  or  for  the  U.S.  Government 
pursuant  to  the  copyright  license  under  the  clause  at  DFARS 
252.227  -  7013,  October  1988. 


SlCijKlIr  CLASsiHCAlicJN  Of  Tnis  pAGi- 


j  REPORT  DOCUMENTATION  PAGE 

T»  Rfroni  SECURITY  CLASSIFICATION - ~l~ib~RESTR 

_ _ Unclass  i  f  i e d  I 


SECURITY  CLASSIFICATION  AUUIORITY - 


DECLASSIFICATION / DOWNGRADING  SCHEDULE 


<3  PERFORMING  ORGANIZATION  RETORT  NUMBER(S) 


Form  Approved 
OMB  No.  070401** 


lb  RESTRICTIVE  MARKINGS 


1  01$  I RIRU T  ION  /  AVAILABILI  f  Y  OF  REPORT 
l)Approved  for  public  release;  dis¬ 
tribution  is  unlimited. 


5  MONHORING  ORGANIZATION  REPORT  NUMBER(S) 


NAME  OF  PERFORMING  ORGANIZATION 
School  of  Electrical  Eng 
Georgia  Tech 


’C  ADDRESS  (City,  Stite,  tnd  JIB  Code) 

Atlanta,  Georgia  30332 


6b  OFFICE  SYMBOt 
(II  epplicible) 


In  NAME  OF  MONIIORING  ORGANIZATION 

O.S.  Army  Strategic  Defense  Command 


?b  ADDRESS  (City.  Sf*Tf,  tnd  ZIP  Code) 

P  .  0 .  Box  I  500 

UUntsville,  AL  35807-3801 


.3  name  OF  FUNDING /SPONSORING 
ORGANIZATION 


c  ADORESS  (City.  Stite. tnd  ZIP  Code) 


Bb  OFFICE  SYMPOt 
(If  tpplictble) 


9  PROCUREMENT  INSTRUMENT  IDENTIFICATION  NUMBER 

DASG60-85-C-004  I 


10  SOURCE  OF  FUNDING  NUMBERS 


TROGRAM 
ELEMENT  NO 


I  NILE  (Include  Security  Clttlihcttion) 

Macrostructure  Logic  Arrays  Volume  2,  Task  2 


Z  PERSONAL  AUTHOR(S) 
C.  0.  Alford 


PROJECT 

NO 


WORK  UNIT 
ACCESSION  NO 


Ji  TYPE  OF  REPORT 

Final 


SUPPLEMENTARY  NOTATION 


IJb  TIM*  COVERF  O  llfl  DA  I E  OF  REPORT  (Yetr.  Month.  Dty)  IS.  PAGE  COUNT 

rRpM  6  /  2  3  /  8  5  TP  I  I  /2  /9(}  November  2  ,  1990  163 


'  COSATI  CODES 

FIELD 

j  GROUP  1 

|  SUB-GROUP 

18  SUBJECT  TERMS  ( Continue  on  reverse  if  necessity  »nd  identify  by  block  number) 


ABSTRACT  (ConTinof  on  reverse  if  necessity  tnd  identify  by  block  number) 

Volume  2,  Task  2  Seeker  Scene  Emulator 

1 .  Introduction 

2.  Design  Hardware 

2.  1  Host 

2.2  Processor  Array 

2.3  Display 

2.4  Interfaces 

2.5  Data  Storage 

3.  Software  Tools 

3.  1  ESSING 

4.  Simulation  Software 

4. !  Seeker  Emulator  Operation 
4 . 2  Algorithms 


4.3  Target/Scene  Tapes 

4.4  Performance 

5.  References 

6.  Appendices 


1  DISTRIBUTION/AVAILABILUY  or  ARSIRACT 
□  UNCLASSiriED'UNLIMITEO  □  SAME  AS  RPI 


3  NAME  OF  RESPONSIBLE  INDIVIDUAL 


1ZI  ABSTRACT  SECURITY  CLASSIFICATION 

Unclassified _ _ 


ZZb  TELEPHONE  (Include  Ate*  Code)  ZJt,  OTTTCt 


)  form  1473,  JUN  86 


Previous  rdHiprii  ite  ohiolrtr 


U  n  c  1 a  a  s  i  f  i  ed 


Distribution  statement  continued 

2)  This  material  may  be  reproduced  by  or  for  the  U.S.  Government  pursuant 
the  copyright  license  under  the  clause  at  DFARS  252.227-7013,  October 


to  r  TTyTTn  n  «  i  f  i  rot  i on 


tif  Tiilo 


t  o 

I  9 fl8  . 


FINAL  REPORT 
VOLUME  2 

TASK  2:  SEEKER  SCENE  EMULATOR 
CLIN  0006 


November  7.  1990 


Authors 

Andrew  Henshaw,  Roy  Melton  and  Steve  Gieseking 


COMPUTER  ENGINEERING  RESEARCH  LABORATORY 

Georgia  Institute  of  Technology 
Atlanta,  Georgia  30332  -  0540 


Eugene  L.  Sanders 

Cecil  O.  Alford 

USASDC 

Georgia  Tech 

Contract  Monitor 

Project  Director 

Copyright  1990 

Georgia  Tech  Research  Corporation 
Centennial  Research  Building 
Atlanta,  Georgia  30332 


Table  of  Contents 


1 .  Introduction . 1 

1.1.  History . 1 

1.2.  Objectives . 1 

1.3.  Requirements . 1 

2.  Design  Hardware . 2 

2.1.  Host . 2 

2.2.  Processor  Array . 2 

2.3.  Display . 3 

2.4.  Interfaces . 3 

2.4.1.  PFP  Interface . 3 

2.4.2.  Signal  Processing  Interface . 3 

2.5.  Data  Storage . 4 

3.  Software  Tools . 5 

3.1.  ESSING  (B DM  manual) . 5 

4.  Simulation  Software . 6 

4. 1 .  Seeker  Emulator  Operation . 6 

4.2.  Algorithms . 7 

4.2.1.  Non- Uniformity  Compensation . 7 

4.2.2.  Thresholding . 7 

4.2.3.  Hot-Spot  Detection . 7 

4.3.  Target/Scene  Tapes . 8 

4.4.  Performance . 8 

5.  References . 8 

6.  Appendices . 9 

6.1.  Appendix  A:  Seeker  Scene  Emulator  Publications . 9 

6.2.  Appendix  B:  Seeker  Scene  Emulator  Operation  Programs . 9 

6.2.1.  Occam  Source . 9 

6.2. 1 . 1  .Seeker  Program  File . 9 


6.2. 1.2.  PROCB409 . 16 

6.2.1. 3.  PROC  B409.stub . 25 

6.2. 1.4.  PROC  Background . 26 

6.2. 1 .5.  PROC  Controller . 34 

6.2. 1.6.  PROC  Firstbuffer  (Graphics  Buffer) . 42 

6.2. 1.7.  PROC  Formatter . 44 

6.2.1. 8.  Various  graphics  routines . 46 

6. 2. 1.9.  Graphics  system  control  routines . 53 

6.2.1.10.  Graphics  text  routines . 55 

6.2.1.11.  GIF  routines  (save  captured  display  images) . 60 

6.2.1.12.  Alternative  GIF  routines . 66 

6.2.1.13.  PROC  GTSEI . 72 

6.2.1.14.  PROC  Guidance . 74 

6.2.1.15.  PROC  HostSeeker . 77 

6.2.1.16.  PROCHostStub . 81 

6.2.1.17.  PROC  ImageDisplay . 82 

6.2.1.18.  PROC  Loader  (used  by  Host) . 86 

6.2.1.19.  PROC  runSeeker . 1 . 98 

6.2.1.20.  PROC  SecondBuffer  (Graphics  Buffer) . 103 

6.2.1.21.  PROC  SP  (Signal  Processing) . 105 

6.2.1.22.  PROC  SPController . 109 

6.2.1.23.  PROC  Target . Ill 

6.2.1.24.  PROC  TargetLead . 115 

6.2.1.25.  PROC  TrackDisplay . 119 

6.2.1.26.  PROCXBar . 127 

6.2.2.  Include  files . 129 

6.2.3.  Makefiles . 143 

6.2.4.  Link  command  files . 148 

6.2.5.  Motherboard  C004  Configuration . 157 


1.  Introduction 

Under  direction  from  the  U.  S.  Army  Strategic  Defense  Command,  the  Computer  Engineering 
Research  Laboratory  at  the  Georgia  institute  of  Technology  and  BDM  Corporation  have 
developed  a  real-time  Focal  Plane  Array  Seeker  Scene  Emulator.  This  unit  enhances  Georgia 
Tech's  capabilities  in  KEW  system  testing  and  performance  demonstration. 

1.1.  History 

As  shown  in  Figure  1.1,  the  SDIO  HWTL  Simulation  Structure  (as  presented  by  Dr.  Clarence 
Giese)  contains  three  paths  for  exercising  the  Signal  Processing  and  Data  Processing  algorithms 
and  hardware.  Two  of  these  methods  use  actual  FPA  hardware  to  generate  signals  for 
presentation  to  the  SP  and  DP  sub-systems.  In  many  cases,  the  use  of  an  FPA  might  be 
considered  restrictive.  The  Georgia  Tech  Seeker  Scene  Emulator  is  designed  to  provide  the  third 
path  in  this  simulation  structure.  By  emulating  the  FPA,  the  Georgia  Tech  SSE  can  provide  test 
results  that  would  be  costly  or  difficult  to  achieve  using  an  actual  FPA.  The  SSE  can  be  used  to 
fill  in  gaps  in  testing  of  components  in  stressing  simulation  scenarios,  such  as  nuclear 
environments  and  high  object  counts. 

1.2.  Objectives 

The  FPA  Seeker  Scene  Emulator  combines  advanced  hardware  developed  at  Georgia  Tech  with  a 
BDM-generated  database  to  produce  signals  based  upon  target  radiometric  information,  seeker 
optical  characterization,  FPA  detector  characterization,  and  simulated  background  environments. 
Using  real-time,  positional  updates,  typically  from  the  Georgia  Tech  Parallel  Function  Processor, 
the  Seeker  Scene  Emulator  can  combine  elements  of  the  prc-computed  database  to  form  an  image 
that  is  positionally  and  radiometrically  correct. 

1.3.  Requirements 

The  Georgia  Tech  SSE  is  designed  to  accurately  emulate  FPAs  with: 
up  to  128  x  128  detectors 
rates  up  to  100  Hz 

pixel-by-pixel  non-uniform  response 
flexible  A/D  modeling,  with  up  to  16  bits/pixei 
fully  diffracted  optical  images 
complex  environments,  such  as 
nuclear  redout 
hundreds  of  objects 
multiple  color  bands 


Figure  1.1:  SDIO  HWIL  Simulation  Structure 
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2.  Design  Hardware 
2.1.  Host 


2.  Design  Hardware 

Real-time  operation  of  the  Seeker  Scene  Emulator  is  achieved  by  precomputing  target  and  noise 
data  for  a  simulation,  transferring  this  data  to  the  Seeker  Scene  Emulator,  and  merging  the  target 
and  noise  data  to  produce  a  correct  image.  This  image  can  then  be  processed  as  if  it  were  data 
from  an  actual  missile  seeker  sub-system. 

Figure  2.1  shows  a  typical  mission  flight  profile.  For  a  given  6-degree-of-freedom  (DOF) 
simulation,  the  variance  in  target  range  will  be  quite  small  as  changes  in  SP  and  DP  algorithms 
are  evaluated.  What  can  change  significantly,  however,  is  the  frame-to-frame  target  line-of  sight 
(LOS).  These  properties  are  exploited  in  the  design  of  the  SSE.  Precomputing  of  the  target  and 
noise  data  relies  upon  the  small  variance  in  target  range.  However,  the  SSE  must  still 
compensate  for  the  LOS  changes  in  real  time. 

The  Seeker  Scene  Emulator  database  consists  of  two  data  structures,  the  Noise  and  Target  Files, 
which  are  combined  in  real  time  to  form  the  Emulator  output.  The  Noise  File  is  generated  at  the 
resolution  of  the  simulated  FPA,  e.g.  128  x  128  elements.  The  Target  File,  however,  is  generated 
at  higher  resolutions  to  provide  sub-pixel  resolution  for  alignment  of  the  target  image  against  the 
noise  image.  Currently,  16  sub-pixels  of  target  image  are  generated  for  each  pixel  of  noise 
image. 

These  data  files  are  computed  off-line  using  a  6-DOF  simulation  with  "ideal"  components 
(Figure  2.2).  When  the  same  simulation  is  run  real-time  on  the  Georgia  Tech  PFP  with  hardware 
emulation,  LOS  differences  will  emerge.  The  Seeker  Scene  Emulator  accommodates  these 
differences  by  shifting  the  target  data  with  respect  to  the  noise  data.  Once  the  shifting  has 
occurred,  the  sub-pixel  target  data  is  combined  with  the  noise  data  to  produce  an  image  at  the 
established  resolution  of  the  simulated  focal  plane  array.  At  this  point,  a  simulation  of  the 
analog-to-digital  conversion  process  transforms  the  image  data  to  a  specified  word  width  and  the 
data  is  streamed  out  of  the  Seeker  Scene  Emulator  (Figure  2.3). 

2.1.  Host 

Currently,  the  Host  for  the  Seeker  Emulator  is  a  PC-AT  compatible  system,  with  a  removable 
disk  drive,  a  fixed  disk  drive,  and  a  Transputer  motherboard  with  module.  The  module  consists 
of  a  T800  Transputer  and  8  megabytes  of  memory.  This  processor  acts  as  the  controller  for  the 
system  and  the  code  for  its  operation  is  listed  in  Appendix  A. 

2.2.  Processor  Array 

The  FPA  Seeker  Scene  Emulator  (Figure  2.4)  is  a  256  processor  system  providing  high 
computing  performance,  512  Megabytes  of  memory,  and  flexible  inter-processor  communication. 
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2.  Design  Hardware 
23.  Display 


The  current  processing  element  is  an  Inmos  T800  Transputer.  The  T800  is  a  32/64  bit  processor 
with  on-chip  floating-point  hardware  and  four  high-speed,  serial  communication  channels.  The 
processors  are  available  on  daughterboards  which  support  2  megabytes  of  dynamic  RAM  and 
128  Kilobytes  of  static  RAM.  With  the  current  design,  real-time  emulation  of  a  128  x  128  FPA 
is  possible  at  rates  over  100  frames  per  second. 

2.3.  Display 

The  host  display  uses  a  character-style  menu  that  leads  the  user  through  input  selections.  The 
SSE  display,  on  the  other  hand,  uses  a  high-speed  graphical  interface  to  display  a  visual 
representation  of  both  the  raw,  emulated  FPA  output  and,  optionally,  processed  Seeker  data.  The 
display  parameters  arc  640  x  480  pixels  and  a  90  Hz  refresh  rate.  Three  processors,  each  with 
individual  frame  buffers,  are  responsible  for  updating  the  display  image.  One  processor  is 
allocated  to  each  of  the  two  FPA  data  arrays  and  a  third  displays  range,  rate,  and  time 
information.  The  unique  design  of  the  graphics  system,  based  upon  the  Inmos  B408  and  B409 
TRAM  boards,  allows  all  three  processors  to  simultaneously  display  their  results  on  the  same 
monitor. 

2.4.  Interfaces 

In  addition  to  those  interfaces  which  are  an  integral  part  of  the  Host  (referenced  above)  and  Data 
Storage  (referenced  below)  sub-systems,  there  are  two  important  Seeker  Emulator  Interfaces:  the 
PFP  interface  and  the  Signal  Processing  interface. 

2.4.1.  PFP  Interface 

The  PFP  interface  provides  synchronized  communication  between  the  Seeker  Emulator  and  the 
Parallel  Function  Processor.  Using  an  Inmos-standard  TRAM  form  factor,  the  interface  provides 
4  Transputer  links  for  communication  with  the  Seeker  Emulator  and  a  Georgia  Tech-standard 
PFP  crossbar  port. 

The  PFP  interface  is  mounted  in  the  Seeker  Emulator  occupying  a  Size  2  TRAM  site. 
Physically,  the  board  measures  approximately  3"  x  2”  and  uses  a  T212  (16-bit)  Transputer.  The 
code  for  this  processor  is  also  given  in  Appendix  A. 

2.4.2.  Signal  Processing  Interface 

At  the  time  of  the  writing  of  this  document,  the  Signal  Processing  Interface  had  not  been 
completely  specified.  The  development  of  this  interface  is  under  a  different  contract  and  is 
mentioned  here  for  reference  purposes.  It  can  be  assumed  that  the  interface  will  support  variable 
frame  rates  up  to  100  II/.  and  FPA  sizes  up  to  128  x  128  as  these  arc  the  specified  capabilities  of 
the  Seeker  Emulator. 


Final  Report 


2.  Design  Hardware 
2.5.  Data  Storage 


2.5.  Data  Storage 

Storage  of  the  extremely  large  data  files  needed  for  operation  of  the  Seeker  Emulator  is  provided 
by  an  Exabyte  8mm  tape  drive  mounted  in  a  DEC  MicroVax  II  Workstation.  This  system  also 
houses  a  Transputer-interface  board  provided  by  Caplin  Cybernetics. 

Before  running  the  Seeker  Emulator,  the  data  must  be  loaded  from  tape.  For  a  169  frame 
simulation,  this  can  take  over  20  minutes.  The  two  routines  'senddata'  and  ’send34000'  perform 
the  actual  transfer  from  the  mass  storage  through  the  Transputer  interface  and  to  the  Seeker 
Emulator.  The  'send34000'  routine  is  a  modified  version  of  the  'senddata'  program  that  reads  data 
from  the  tape  in  blocks  of  34000  bytes.  This  is  a  non-standard  block  size,  but  using  such  a  large 
block  size  greatly  reduces  the  loading  time. 
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3.  Software  Tools 
3.1.  ESS  IN  G  (BD\1  manual) 


3.  Software  Tools 

Most  of  the  software  associated  with  the  SSE  is  actually  incorporated  into  the  run-time  program 
(see  Appendix  A).  One  of  the  important  programs  which  is  run  off-line  is  ESSING.  ESSING  is 
the  target  and  noise  data  file  generator  written  by  BDM. 

3.1.  ESSING  (BDM  manual) 

Operation  of  the  ESSING  software  is  fully  described  in  the  ESSING  USER'S  MANUAL  [1]. 
ESSING  can  be  run  on  VAX-compatible  systems  and  is  available  on  the  MicroVax  II  that  is 
attached  to  the  Seeker  Scene  Emulator.  The  data  files  produced  can  be  enormous,  for  example, 
the  target  data  file  for  a  169  frame  simulation  would  occupy  in  excess  of  175  megabytes. 
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4.  Simulation  Software 


4.1.  Seeker  Emulator  Operation 


4.  Simulation  Software 

During  real-time  operation  of  the  Seeker  Scene  Emulator,  certain  signal  and  object  processing 
operations  can  optionally  be  emulated  by  the  Transputer  array.  These  implementations  may  not 
be  as  rigorous  as  those  that  are  to  be  performed  by  custom  VLSI  chipsets,  but  they  do  test  the 
standalone  operation  of  the  SSE.  The  algorithms  that  are  currently  implemented  are  non¬ 
uniformity  compensation,  thresholding,  and  hot-spot  detection 

4. 1 .  Seeker  Emulator  Operation 

The  Occam  source  code  shown  in  Appendix  B  is  a  single  program  that  is  executed  by  many 
processors  (over  200).  The  assignment  of  processes  (see  Figure  2.4)  is  static  and  a  relationship 
between  the  processors  and  procedures  can  be  illustrated  in  a  table. 


Table  4.1:  Processor  Assignments 

Processor  Number 

Procedure  Name 

Description 

1000 

Host 

Menu  interface  for  user.  Loads  data  files.  Video 

image  storage. 

0 

Controller 

Responsible  for  sending  commands  to  all 

processes.  Generates  all  timing  signals. 

l 

Guidance 

Emulates  a  simple  guidance  procedure  when  the 

PFP  is  not  attached.  Also  handles  communication 

with  the  XBar  process. 

XBar 

This  process  executes  on  the  GT-XBI  module. 

Communicates  with  the  PFP  Crossbar. 

3 

GTSEI 

Seeker  Emulator  Interconnect  -  this  code  controls 

the  switch  network.  The  network  is  re-configured 
for  each  frame  depending  on  the  actual  LOS  shift. 

10-25 

Background 

Receives  target  data,  performs  non-linearization 
(up  to  5th  order)  and  adds  noise  data.  Also 
performs  simulated  analog/digital  conversion. 

6 
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4.  Simulation  Software 


4.2.  Algorithms 


r 

30-45 

TargetLead 

Shifts  pointers  to  in-memory  target  data  based 
upon  actual  LOS  shift.  Streams  data  out  to  switch 
network  for  gross  shift.  Passes  shift  information  to 

other  Lead  Processors. 

10(3-256 

Target 

Shifts  pointers  to  in-memory  target  data  based 
upon  actual  LOS  shift.  Streams  data  out  to  Lead 
Target  Processors. 

500 

SPController 

Manages  messages  to  and  from  SP  processes. 

510-525 

SignalProccssing 

Performs  non-uniformity  compensation, 

thresholding,  etc. 

600-635 

GraDhicsBuffer 

Reduces  data  flow  from  8  links  down  to  1  link. 

640-643 

Formatter 

Organizes  data  for  display. 

650-651 

ImageDisplay 

This  is  the  process  that  updates  the  screen  displav. 

652 

TrackDisplay 

Show  range,  time,  etc.  on  the  Seeker  Display. 
Also  show  centroid  of  identified  target. 

660 

B409 

Process  responsible  for  controlling  the  analog 
circuitry  of  the  Display  modules.  Sets  screen 
width,  height,  palette,  and  timing. 

4.2.  Algorithms 

4.2.1.  Non-Uniformity  Compensation 

The  coding  for  the  non-uniformity  compensation  is  a  complete  implementation  of  the  algorithm 
as  defined  in  [2].  This  process  can  be  performed  in  parallel  and  thus  can  run  real-time. 

4.2.2.  Thresholding 

This  version  of  thresholding  does  not  implement  all  of  the  modes  available  to  the  GT  VLSI 
Thresholding  chip.  Specifically,  adaptive  thresholding  is  not  attempted  and  adjusted 
thresholding,  while  possible  to  do,  is  also  not  coded. 
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5.  References 
43.  Target/Scene  Tapes 


4.2.3.  Hot-Spot  Detection 

For  testing  of  the  real-time  operation,  no  attempt  is  made  at  clustering,  centroiding,  and  tracking 
using  the  Transputer  array.  Instead  a  simple  hot-spot  detection  is  performed.  This  is  sufficient  if 
the  target  data  files  have  been  constructed  appropriately.  Obviously,  for  those  cases  when  the 
target  cannot  be  determined  using  this  simplistic  approach,  other  hardware  approaches  will  be 
used. 

4.3.  Target/Scene  Tapes 

As  mentioned  above,  the  data  files  produced  by  the  ESSING  software  are  very  large  and  strain 
the  capacity  of  conventional  mass  storage  devices.  For  this  reason,  the  Seeker  Scene  Emulator 
uses  an  8mm  tape  system  (Exabyte)  that  can  support  up  4  gigabytes  on  a  single  cartridge.  The 
tape  drive  is  mounted  in  a  MicroVax  II,  and  data  can  be  transferred  to  the  SSE  through  a 
Transputer  interface  that  also  resides  in  the  MicroVax. 

4.4.  Performance 

The  Georgia  Tech  Seeker  Scene  Emulator  realizes  all  of  its  targeted  performance  goals. 
Emulation  of  a  128  x  128  FPA  at  frame  rates  of  100  Hz  is  possible.  Additionally,  the 
architecture  is  such  that  these  capabilities  could  be  extended  if  necessary. 

One  limitation  is  the  generation  of  the  off-line  data  files.  The  ESSING  software  lakes  a 
considerable  amount  of  time  (hours)  even  on  high  performance  systems.  We  have  investigated 
the  parallelization  of  the  basic  ESSING  software,  so  that  this  overhead  could  be  avoided. 
Unfortunately,  another  bottleneck  is  the  loading  of  the  data  files  from  tape.  For  a  user  to  convert 
from  the  testing  of  one  scenario  to  another  would  take  a  minimum  of  30  minutes. 

Georgia  Tech's  proposal  is  to  leverage  the  hardware  investment  that  has  been  made  in  the  current 
SSE  and  to  produce  an  Advanced  Seeker  Scene  Emulator  that  would  not  need  to  have 
voluminous  data  files  generated  off-line.  Testing  of  multiple  scenarios  could  then  proceed  at  a 
rapid  pace.  Working  with  BDM  Corp.  and  Teledync  Brown  Engineering,  we  feel  that  we  have  a 
reasonable  approach  to  a  Seeker  Scene  Emulator  that  could  surpass  the  functionality  of  the 
hardware-software  described  in  this  document. 
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6.  Appendices 


6.1.  Appendix  A:  Seeker  Scene  Emulator  Publications 

BDM  Corporation,  Signal  Processing  Concepts  and  Algorithms,  BDM/HTV-89-0002-BR,  U.  S. 
Army  Strategic  Defense  Command,  Contract  No.:  DASG60-85-C-0041,  12  January  1989. 

BDM  Corporation,  ESSING  User's  Manual,  BDM/HTV-89-0796-TR,  U.  S.  Army  Strategic 
Defense  Command,  Contract  No.:  DASG60-87-C-01 11,5  December  1989. 

BDM  Corporation,  EXOSEEK  Version  1.0:  A  Simulation  of  the  LATS  Seeker,  U.  S.  Army 
Strategic  Defense  Command,  Contract  No.:  DASG60-87-C-01 11,31  January  1990. 

BDM  Corporation,  EXOSEEK  Version  2.0:  A  Simulation  of  the  LATS  Seeker,  U.  S.  Army 
Strategic  Defense  Command,  Contract  No:  DASG60_87-C-01 11,15  May  1990. 

Georgia  Institute  of  Technology,  Computer  Engineering  Research  Laboratory,  Macrostructure 
Logic  Arrays  Volumes  1,-3,  U.  S.  Army  Strategic  Defense  Command,  Contract  No.:  DASG60- 
85-C-0041,  20  July  1989. 

Georgia  Institute  of  Technology,  Computer  Engineering  Research  Laboratory,  Signal  Processing 
Algorithms  -  Georgia  Tech  Benchmark,  U.  S.  Army  Strategic  Defense  Command,  Contract  No.: 
DASG60-85-C-004],  Special  Technical  Report  No.  STR-0 142-90-008,  27  February  1990. 

Teledyne  Brown  Engineering,  GN&C  Lab  Seeker  Emulator  -  An  Assessment  and 
Recommendations,  U.  S.  Army  Strategic  Defense  Command,  Contract  No.:  DASG60-87-C-0042, 
May  1988. 

6.2.  Appendix  B:  Seeker  Scene  Emulator  Operation  Programs 
6.2.1.  Occam  Source 

6.2. 1. 1. Seeker  Program  File  "seeker.pgm" 

— { ( {  SC  HostSeek 
— : : : A  410 
4USE  "HostSeek. c9h" 

— ( i { F  HostSeek 

hostseek.OCC 

--It) 

—  { {  i  SC  Controller 
:  :  : A  4  1C 
4QSE  "controll .  t8h" 

{ { { F  Controller 

CONTROLL. OCC 
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— :::F  GUIDANCE . OCC 

~m 

— } }  i 

--{ { {  SC  XBar 
— :::A  4  10 

#USE  "xbar.t2h" 

— { { { F  XBar 
— : : :F  XBAR. OCC 
--}  I  1 
--}  }  1 

— {{(  SeekerEmulator 
#USE  "gtsei . t2h" 

--{ { {  SC  GTSEI 
-- : : :A  4  10 
— { { { F  gtsei . occ 
GTSEI .OCC 

—  Ml 
--}  1  } 

#USE  "backgrou . tSh" 
--{{{  SC  Background 
— : : : A  4  10 
— { { { F  Background 
--:::F  BACKGROU. OCC 

-in 

--111 

#USE  "targetie . t8h" 

— {{(  SC  TargetLead 

—  :  :  :A  4  10 

— ( ( ( F  TargetLead 
— : : : F  TARGETLE . OCC 

—  1  1  1 

—  >  n 

4USE  "target ,t8h" 

--{ ( {  SC  Target 
: A  4  10 
— { { { F  Target 

: E  TARGET .OCC 

—  m 

—  m 

Signalprocessing 
♦USE  "spcontro . t8h" 

—  i  { t  SC  SPController 

—  :  :  :  A  4  10 

—  i  ;  ( F  SPController 

SPCONTRO. OCC 


4 USE  "sp . t4h" 
--  {  t  SC  S? 

: A  410 


i  1 
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— : : :F  FIRSTBUF.OCC 

—  lit 

—  1  1  ) 

#USE  "secondbu.t8h" 

— ({{  SC  SecondBuffer 
: :A  4  10 

— { { { F  SecondBuffer 
— :::F  SECONDBU.OCC 
—  1  1  } 

— }  1  } 

#USE  "formatte .t8h" 
--{{{  SC  Formatter 
— : : : A  4  10 
-- (( ( F  Formatter 
— : ; : F  FORMATTE. OCC 

— }  1  } 

#USE  "imagedis . c8h" 

— {{{  SC  ImageDisplay 
: A  4  10 

— { { { F  ImageDisplay 

—  :  :  :  F  IMAGED  IS*.  OCC 
— )  )  1 

--m 

4USE  "trackdis .c8h" 

— {{(  SC  TrackDisplay 
: A  410 

— { ( { F  TrackDisplay 
— : : : F  TRACKDIS. OCC 
— }  }  } 

— }  }  } 

#USE  "b409stub.c2h" 

--{ { (  SC  B409 . stub 
: :A  410 
-- { { { F  B409stub 

—  :  :  : F  B409stub.OCC 

—  m 

—  m 


--}  1 1 

—  (  u 

conf igurati 

on 

—  { { { 

constants 

VAL 

image . shift 

IS  9  : 

--1  1  1 

—  ({( 

link  definitions 

VAL 

linkOout  IS 

0 

VAL 

linklout  IS 

VAL 

Xink2out  IS 

2 

VAL 

link3out  IS 

3 

VAL 

linkOin  IS 

4 

VAL 

linklin  IS 

C 

VAL 

iink2in  IS 

6 

VAL 

link3i.n  IS 

'J 

--111 

-  “  '  ;  •' 

rh ante Is 

r*.  T'ui 

OF  AMY  Cent 

roller . Host, 

Host . Controller 

CHAM 

OF  ANY  Co nt 

GT3EI .Controller 

CHAN 

OF  ANY  Cent 

roller . SBC, 

SPC .Controller 

CHAU 

Cc  ANY  Cros 

s  b  a  r 

3, 

Crossbar! 

C  H  All 

OF  AMY  Guid 

a  nee 

XBa  r , 

X?ar .Guidance 
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CHAN  OF  ANY  Guidance . SPCont roller ,  SPController .Guidance 
CHAN  OF  ANY  SPCont roller . Graphics ,  Graphics . SPController 

[16] [8]  CHAN  OF  ANY  Target. up.  Target. down  : 

[16]  CHAN  OF  ANY  Target . forward,  Target. back  : 

[16]  CHAN  OF  ANY  Target .GTSEI ,  GTSEI.BG  : 

[17]  CHAN  OF  ANY  BG. forward,  BG.back 

[16]  CHAN  OF  ANY  BG.SP  : 

[16]  CHAN  OF  ANY  Graphics. SP,  SP. Graphics  : 

[17]  CHAN  OF  ANY  SP. forward,  SP.back  : 

[9]  CHAN  OF  ANY  ExtractO,  Extractl,  Extract2,  Extract3 

[4]  CHAN  OF  ANY  Format . Graphics  : 

[4]  CHAN  OF  ANY  Graphics . forward,  Graphics . back  : 

--}}} 

PLACED  PAR 

— [{{  HostSeeker 
PROCESSOR  1000  T8 

PLACE  Host .Controller  AT  iink2out  : 

PLACE  Controller . Host  AT  link2in  : 

HostSeeker  (Controller . Host ,  Host .Controller) 

— }  }  } 

— ({{  Controller 
PROCESSOR  0  T8 


PLACE 

Host . Controller 

AT 

linklin 

PLACE 

GTSEI .Controller 

AT 

link3in 

PLACE 

BG .back [0] 

AT 

linkOin 

PLACE 

SPC. Controller 

AT 

link2in 

PLACE 

Controller . Host 

AT 

linklout 

PLACE 

Controller .GTSEI 

AT 

link3out 

PLACE 

BG. forward [0] 

AT 

linkOout 

PLACE 

Controller . SPC 

AT 

link2out 

Controller  (  Host . Controller,  Controller .Host, 

GTSEI .Controller,  Controller .GTSEI, 

BG.backfO],  BG. forward [0] , 

SPC  .Controller,  Controller . SPC  ) 

}  i  } 

— {{{  Guidance 
PROCESSOR  1  T8 


PLACE 

SPController. Guidance 

AT 

linklin 

PLACE 

XBar . Guidance 

AT 

linkOin 

PLACE 

Guidance . SPController 

AT 

linklout 

PLACE 

Guidance . X3ar 

AT 

linkOout 

Guidance (  SPController .Guidance,  Guidance . SPController , 
XBar .Guidance,  Guidance . XBar 

--Ilf 

— i ! i  XBa r 
PROCESSOR  2  T2 

PLACE  Guidance . XBar  AT  linklin  : 

PLACE  XBar . Guidance  AT  linklout  : 

X3ar(  Guidance . XBar,  XBar .Guidance  ) 

-Ml 

—  1  1  '  3  r* *2  k  3  r  Zrr.u  1 3  z  r 

- !  ■.  1  djTSu.  I 


Final  Report 


PLACE 

GTSEI .Controller 

AT 

linklout  : 

PLACE 

Target . forward[0] 

AT 

link2out  : 

PLA~E 

CrossbarO 

AT 

linkOout  : 

PLACE 

Crossbarl 

AT 

li..k3out  : 

GTSEI  ( 

Controller .GTSEI, 

GTSEI 

.Controller, 

Target  .back [0] , 

Target . forward [ 0] 

CrossbarO, 

Crossbarl 

--}  }  } 

-- { { {  Background 
? LACED  PAR  i  =  0  FOR  16 


PROCESSOR  10+i  T8 


PLACE 

GTSEI . BG [i] 

AT 

link3in 

PLACE 

BG . forward [ i  ] 

AT 

linklin 

PLACE 

BG.back [i-1 ] 

AT 

li.nk2in 

PLACE 

BG.SP [i] 

AT 

linkOout 

PLACE 

BG.back [ i] 

AT 

linklout 

PLACE 

BG . forward [ i+1 ] 

AT 

link2out 

Backgr 

ound  (  oTSc.1 .  BG  [  i  ] , 

BG.SP [i] , 

BG. forward [i] 

f 

BG . back [ i  ' 

r 

3G . back [  i*i  ] , 

BG . forward [i+1 3 

;  /  i 

-- { ( {  TargetLead 
PLACED  PAR  i  =  0  FOR  15 

PROCESSOR  30+i  T8 


PLACE 

Target .down [ i] [0] 

AT 

link2in 

PLACE 

Target . forward[i] 

AT 

linkOin 

PLACE 

Target .back [ i+1] 

AT 

link3in 

PLACE 

Target .GTSEI  [i] 

AT 

linklout 

PLACE 

Target .up [i] [0] 

AT 

link2out 

PLACE 

Target .back [ i] 

AT 

linkOout 

PLACE 

Target . forward[i+l] 

AT 

link3out 

rarge 


+  ~-TSETr 


TargetLead(  Target .down [i] [0] 


Target .up [i]  [0] 


Target . forward[i] , 
Target . back [i  +  1  j 


Target .back  [i] , 

Target . forward [ i+1 ] , 


1 


PROCESSOR  45  T3 


VAL  i 

IS  15  : 

PLACE 

Target . down [ i ] [0] 

AT 

link2in 

PLACE 

Target . forward [ i j 

AT 

LinkOin 

PLACE 

BG . forward [16] 

AT 

link3in 

PLACE 

Target .GTSEI [i] 

AT 

linklout 

?  LA^E 

Target .up [i] [0] 

AT 

lir.k2out 

PLACE 

Target . back [ i] 

AT 

linkOout 

P  LACE 

BG . back [16] 

AT 

link3out 

Target 

Lead (  Target . down f i] 

r  o  ] ,  t 

'arget .  up  [ 

Target . forward [i] ,  Target .back [i]  , 
BG . forwa rd [ 1 6] , 


Target . GTSEI  [ i]  , 
BG.back [16] ,  i 


Target 


1 


t  1? 
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PLACE 

Target. up[i] [j-1] 

AT 

linklin 

PLACE 

Target .down [i]  tj] 

AT 

link2in 

PLACE 

Target .down [i] [j-1] 

AT 

linklout 

PLACE 

Target .up  [i]  [  j] 

AT 

link2out 

Target!  Target .up [i]  [ j  —  1 ] ,  Target . down [i]  [ j-1] , 

Target. down[i] [j] ,  Target . up [ i] [ j ] ,  i,  j  ) 

--} } } 

}  } 

— { ( t  Signalprocessing 
—  tit  SPControiler 
PROCESSOR  500  T8 


PLACE 

Controller . SPC 

AT 

linklin 

PLACE 

Guidance . SPControiler 

AT 

linklin 

PLACE 

Graphics . SPControiler 

AT 

linklin 

PLACE 

SP .back [0] 

AT 

linkOin 

PLACE 

SPC .Controller 

AT 

linklout 

PLACE 

SPControiler .Guidance 

AT 

linklout 

PLACE 

SPControiler .Graphics 

AT 

link3out 

PLACE 

SP . forward [0] 

AT 

linkOout 

SPCcnt 

roller!  Controller. SPC, 

SPC . Controller, 

Guidance . SPCont 

roller. 

SPControiler . Guidance, 

Graphics . SPControiler, 

SPControiler .Graphics, 

SP .back [0] , 

S? . forward [0] 

PLACED  PAR  i  =  0  FOR  16 


PROCESSOR  510+i  T4 


PLACE 

Graphics . SP [i] 

AT 

link3in 

PLACE 

SP . forward[i] 

AT 

linklin 

PLACE 

SP . back [ i+1 ] 

AT 

link2in 

PLACE 

SP .Graphics [i] 

AT 

linkOout 

PLACE 

3? .back [i] 

AT 

linklout 

PLACE 

3? . forward [i+1 ] 

AT 

linklout 

SP (  Graphics . SP [ i] ,  SP 

SP . forward [ i] ,  3? 

SP  .Pack  [i+1] ,  3P 

—  \  •  \ 

— }  }  } 

-- ( ( !  Graphics 
--Iff  FirstBuf fer 
PLACED  PAR  i  =  0  FOR  3 

PROCESSOR  600-fi  T3 


PLACE 

3G.5? [i] 

AT 

PLACE 

Extract! [i+1] 

AT 

PLACE 

Graphics . S? [ i] 

AT 

PLACE 

Ext ract 0 [ i ] 

AT 

First  3: 

■  f fer (  EG . 3? [ i ] , 
Extract  0 [ 

i  +  1  ] 

.Graphics [i] , 

.back [i] , 

.  forward[i+l] ,  i  ) 


linJc3in  : 
linklin  : 
linkCout  : 
iir.klout  : 

Graphics . SP ; i ] , 

ExtractO[i] ,  i,  image. shi 
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PLACE 

Extractl [i+1] 

AT 

linklin  : 

PLACE 

Graphics .SP [i+8] 

AT 

linkOout  : 

PLACE 

Extractl [i] 

AT 

link2out  : 

FirstBuf fer (  BG.SP[i+8] 

/ 

Graphics 

Extractl [i+1]  , 

Extractl 

— }  )  ) 

— {((  SecondBuf fer 

PLACED  PAR 

i  =  0  FOR  8 

PROCESSOR  620+i  T8 

PLACE 

SP .Graphics [i] 

AT 

link3in 

PLACE 

Extract2 [ i+1] 

AT 

link2in 

PLACE 

Extract2 [i] 

AT 

linklout 

SecondBuf fer (  SP .Graphics [i] , 

Extract2 [i  +  1]  ,  Extract2[i],  i, 

PLACED  PAR  i  =  0  FOR  8 

PROCESSOR  628+i  T8 


PLACE 

SP .Graphics [i+8] 

AT 

link3in 

PLACE 

Extract3 [i+1 ] 

AT 

linklin 

PLACE 

Extracts [i] 

AT 

link2out 

SecondBuf fer (  S? .Graphics [i+8] , 

Extract3 [i+1] ,  Extract3[i],  i, 

— }  }  } 

— { { (  Formatters 
PROCESSOR  640  T8 

PLACE  ExtractO [0]  AT  linkOin  : 

PLACE  Format .Graphics [0]  AT  linklout  : 

Formatter (  Extract0[0],  Format .Graphics [ 0]  ) 


PROCESSOR  641  T8 


PLACE  Extractl [0] 

AT 

linkOin  : 

PLACE  Format . Graphics 

in 

AT 

linklout  : 

Formatter (  Extractl  [0] 

t 

Format .Graphics [ 1 ] 

PROCESSOR  642  18 

PLACE  Extracts [0] 

AT 

linkOin 

PLACE  Format . Graphics 

r  o  i 

L  <-  J 

AT 

linklout  : 

Formatter (  Extracts [C] 

t 

Format .Graphics [2 ] 

PROCESSOR  643  T8 

PLACE  Extract3[0] 

AT 

linkOin  : 

?  LACE  ?  ~  rr.a c  .  ?.ph ics 

;3; 

link lout  : 

E  a  r^,at“e r  (  E;:t  race 3  r  0  ] 

r 

For: 

r.at  .Graphics  [  3  ; 

i,  image. shift  ) 


image. shift  ) 


image. shift  ) 
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CHAN  OF  ANY  tempi,  temp2  : 


PLACE 

Format .Graphics [0] 

AT 

Iinklin 

PLACE 

Format .Graphics [1] 

AT 

link2in 

PLACE 

Graphics .back [ 1 ] 

AT 

link3in 

PLACE 

Graphics . forward [2 ] 

AT 

linkOin 

PLACE 

Graphics . forward [ 1 ] 

AT 

link3out 

PLACE 

Graphics .back [2] 

AT 

linkOout 

ImageDisplay (  Format .Graphics [0] ,  Format .Graphics [ 1] , 

Graphics . back [1] ,  Graphics . forward [ 1 ] , 

Graphics . forward[2J ,  Graphics .back [2] ,  0,  1000  ) 

PROCESSOR  651  T8 

PEACE  Format .Graphics [2]  AT  link2in  : 

PLACE  Format .Graphics [3]  AT  iinklin  : 

PLACE  Graphics .back [2]  AT  link3in  : 

PLACE  Graphics . forward [3 J  AT  linkOin  : 

PLACE  Graphics . forward[2]  AT  link3out  : 

PLACE  Graphics .back  [3]  AT  linkOout  : 

ImageDisplay (  Fermat .Graphics [2] ,  Format . Graphics [3 ] , 

Graphics . back [2] ,  Graphics . forward [2 ] , 

Graphics . forward [ 3 ] ,  Graohics . back [ 3 j ,  1,  1000  ) 

—  if} 

— ( ( (  TrackDisDlav 
PROCESSOR  652  ~ T8~ 


PLACE 

SPController .Graphics 

AT 

Iinklin 

PLACE 

Graphics .back [0] 

AT 

link3in 

PLACE 

Graphics . forward [ 1 ] 

AT 

linkOin 

PLACE 

Graphics .SPController 

AT 

linklout 

PLACE 

Graphics . forward [ 0 ] 

AT 

link3out 

PLACE 

Graphics .back [1] 

AT 

linkOout 

TrackDisplay (  SPController .Graphics,  Graphics . SPController, 
Graphics .back [ 0] ,  Graphics . forward [ 0] , 

Graphics . forward(Ij ,  Graphics .back [ 1]  ) 

—  -  1  ;  i 

--{{(  B409 

PROCESSOR  660  T2 

PLACE  Graphics. forward[0’  AT  linkOin  : 

PLACE  Graphics .back [0]  AT  linkOout  : 

B409.stub(  Graohics . forward [0] ,  Graphics . back [ 0 ]  ) 

—  Mi 

—  ill 


6.2.!. 2.  PROCB409 

—  £  f {  SC  8409 
:  :A  3  10 
— •  ■  j  3109 
♦INCLUDE  "crtc.inc" 

PPCC  34G9  (  CHAN  OF  CRTC  command  ) 


”b409.occ' 
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VAL  ChannelModeSelect .p  IS  #B000: 

— {{{  ChannelA  defs 

VAL  ChannelAPixelAddressW.p  IS  #0000: 
VAL  ChannelAColorValue .p  IS  #0400: 
VAL  ChannelAPixelMask.p  IS  #0800: 

VAL  ChannelAPixelAddressR.p  IS  #0C00: 
— )  1  } 

— {{{  ChannelB  defs 

VAL  ChannelBPixelAddressW.p  IS  #1000: 
VAL  ChannelBColorValue , p  IS  #1400: 
VAL  ChannelBPixelMask . p  IS  #1800: 

VAL  ChannelBPixelAddressR.p  IS  #1C00: 

—  m 

— {{{  ChannelC  defs 

VAL  ChannelCPixelAddressW . p  IS  #2000: 
VAL  ChannelCColorValue.?  IS  #2400: 
VAL  ChanneiCPixelMask.p  IS  #2800: 

VAL  ChannelCPixelAddressR.p  IS  #2C00: 

—  )H 

VAL  ParameterFIFO .p  IS  #A000: 

VAL  StatusRegister .p  IS  #A000: 

VAL  CommandFIFO.p  IS  #A002 : 

VAL  FIFORead. p  IS  #A002: 

— })} 

— { { {  hardware  placements 
INT  ChannelModeSelect  : 

— {({  ChannelA  declarations 
INT  ChannelAPixelAddressW  : 

INT  ChannelAColorValue  : 

INT  ChannelAPixelMask  : 

INT  ChannelAPixelAddressR  : 

— )}} 

— {({  ChannelB  declarations 
INT  ChannelBPixelAddressW  : 

INT  ChannelBColorValue  : 

INT  ChannelBPixelMask  : 

INT  ChannelBPixelAddressR  : 

—  U  ) 

--{{{  ChannelC  declarations 
INT  ChannelCPixelAddressW  : 

INT  ChannelCColorValue  : 

INT  ChannelCPixelMask  : 

INT  ChannelCPixelAddressR  : 

—  Ml 

INT  ParameterFIFO  : 

INT  StatusRegister  : 

INT  CommandFIFO  : 

INT  FIFORead  : 

--{({  ChannelA  placements 


PLACE  ChannelAPixelAddressW 
bpw. shift  : 

AT 

(ChannelAPixelAddressW . p 

>< 

mint ) 

>> 

PLACE  ChannelAColorValue 
bpw. shift  : 

AT 

(ChannelAColorValue .p 

>< 

mint ) 

>> 

PLACE  ChannelAPixelMask 
bow. shift  : 

AT 

(ChannelAPixelMask . p 

>< 

mint ) 

>> 

PLACE  ChannelAPixelAddressR 
bow. shift  : 

—  )}} 

—  *  ■  ■  C  lV3  n  n  £  2. 3  c  1  h  cq  r?»o  n  s 

AT 

(ChannelAPixelAddressR . p 

>< 

PLACE  ChannelB? ixelAddressW 

AT 

(ChannelBPixelAddressW.p 

>< 

rpi  i ) 

>> 

»  :::  w  .  s Hi  £ tl 

?  LACE  Char.r.e  IBCo  lorVa  lue 
r.rw.  shift  : 

Ik  'T' 

(ChannelBColorValue . p 

>/ 

nint ) 

>-• 

IS 
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PLACE  ChannelBPixelMask 

AT 

(ChannelBPixelMask . p 

>< 

mint ) 

>> 

bpw. shift  : 

PLACE  ChannelBPixelAddressR 

AT 

(ChannelBPixelAddressR . p 

>< 

mint ) 

» 

bpw. shift  : 

—  II  1 

— {{{  ChannelC  placements 
PLACE  ChannelCPixelAddressW 

AT 

(ChannelCPixelAddressW. p 

>< 

mint ) 

>> 

bpw. shift  : 

PLACE  ChannelCColorValue 

AT 

(ChannelCColorValue .p 

>< 

mint ) 

>> 

bpw. shift  : 

PLACE  ChannelCPixelMask 

AT 

(ChannelCPixelMask . p 

>< 

mint ) 

>> 

bpw. shift  : 

PLACE  Char.neiCPixelAddressR 

AT 

(ChannelCPixelAddressR. p 

>< 

mint ) 

>> 

bpw. shift  : 

—  Ill 

PLACE  ChannelModeSelect 

AT 

(ChannelModeSelect .p 

>< 

mine ) 

>> 

bpw. shift  : 

PLACE  ParameterFIFO 

AT 

(ParameterFIFO . p 

>< 

mint ) 

» 

bpw. shift  : 

PLACE  StatusRegister 

AT 

(StatusRegister . p 

>< 

mint ) 

>> 

bpw. shift  : 

PLACE  CommandFIFO 

AT 

(CommandFIFO .p 

>< 

mint) 

>> 

bow. shift  : 

"  PLACE  FIFORead 

AT 

(FIFORead. p 

>< 

mint ) 

>> 

bpw. shift  : 

— }  }  ) 

--{((  CRTC  commands 
VAL  CTRCReset  IS  SOU: 

VAL  CTRCBctrl  IS  *'0D: 

—  1  }  ) 

— ( { {  set .colour 

PROC  set. colour  (  VAL  INT  channel,  colour,  red,  green,  blue  ) 
—  set  up  a  colour  in  the  GUO  colour  look  up  table 
CASE  channel 
INT  channel. A 
—  {  {  1 
SEQ 

ChannelAPixelAddressW  :=  255  -  (colour  /\  #FF) 

ChannelAColorVaiue  :=  red 
ChannelAColcrVaiue : =  green 
ChannelAColorVaiue  :=  blue 
—  Ill 

INT  channel. 3 

—  {  {  { 

SEQ 

ChannelBP ixelAddressW  :=  255  -  (colour  /\  #FF) 

ChannelBCoiorValue  :=  red 
ChannelBColorValue : =  green 
ChannelBCoiorValue  :=  blue 
-111 

INT  channel. C 
—  (  f  ( 

SEQ 

ChannelCPixelAddressW  :=  255  -  (colour  A  #FF) 

ChannelCColorValue  :  =  red 
ChannelCCoiorValue : =  green 
ChannelCColorValue  :=  blue 
—  III 


writeCRTC 

PRCC  writeCRTC ( INT  address,  VAL  INT  data) 
INT  now: 
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SEQ 

address  :=  data 
time  ?  now 

time  ?  AFTER  (now  PLUS  2) 

—  M  } 

—  ({{  init . G17  0 

PROC  init . G170  (VAL  INT  channel,  table) 

INT  red,  green,  blue: 

SEQ 

ChannelAPixelMask  :=  #FF 
IF 

— { { {  table  0 

1 3  b  i  0  —  i 

VAL  scale  IS  (0,  18,  36,  54]  : 

VAL  bias  IS  9  : 

SEQ 

set. colour  (channel,  0,  0,  0,  0)  --  black 

SEQ  i  =  1  FOR  255 
INT  ix  : 

SEQ 

blue  :  =  scale  [  (i»4)  A3] 
green  :=  scale [ (i>>2) / \ 3 ] 
red  :=  scale[i/\3] 

IF 

i  >=  #C0 

blue  :=  blue  +  bias 
i  >=  #80 

green  :=  green  +  bias 
i  >=  #40 

red  :=  red  +  bias 
TRUE 
SKIP 

CASE  channel 

— ( { (  channel .A 
INT  channel. A 
SEQ 

ChannelAColorValue  :=  red 
ChannelAColorValue  :=  green 
ChannelAColorValue  :=  blue 
— }  }  } 

—  ( ( (  channel .  B 
INT  channel. B 
SEQ 

Cha.nnelBColorValue  :=  red 
ChannelBColorValue  :=  green 
ChannelBColorValue  :=  blue 

— ( { {  channel .C 
INT  channel. C 
SEQ 

Chanr.elCColorValue  :=  red 
Char.ne ICCo lorVa lue  :  =  green 
ChannelCColcrValue  :=  blue 

—  (  {  COMMENT  table  1 
:  A  0  0 
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blue  :=  -1 
SEQ  i  =  0  FOR  16 
SEQ 

red  :  =  red  +  4 
green  :=  green  +  4 
blue  :=  blue  +  4 

set. colour  (channel,  i,  red,  green,  blue) 

—  n  i 

--{{{  16  -  32  red  scale 

red  :=  -1 
green  : =  0 
blue  :=  0 
SEQ  i  =  16  FOR  16 
SEQ 

red  : =  red  +  4 

set. colour  (channel,  i,  red,  green,  blue) 
}  ) 

-- ( ((  32  -  47  green  scale 

red  :=  0 
green  :=  -1 
blue  :=  0 
SEQ  i  =  32  FOR  16 
SEQ 

green  :=  green  -  4 

set. colour  (channel,  i,  red,  green,  blue) 
--)  }  ! 

--({{  48  -  63  blue  scale 

red  : =  0 
green  :=  0 
blue  :=  -1 
SEQ  i  =  48  FOR  16 
SEQ 

blue  :=  blue  +  4 

set. colour  (channel,  i,  red,  green,  blue) 

—  m 

--{((  64  -  79  yellow  scale 

red  :=  -1 
green  :=  -1 
blue  :=  0 
SEQ  i  =  64  FOR  16 
SEQ 

red  :=  red  +■  4 
green  :  =  green  +  4 

set. colour  (channel,  1,  red,  green,  blue) 

--{{{  30  -  95  cyan  scale 

red  : =  0 

green  :  =  -1 

blue  :=  -1 

SEQ  i  =  30  FOR  16 

U. 

green  :=  green  *  4 
blue  :=  blue  4 

set. colour  (channel,  i,  red,  green,  blue) 

--(({  96  -  111  magenta  scale 

red  :=  -1 
green  :=  0 
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— }  }  ) 

— {{{  112  -  127  red  &  green  scale  with  third  blue 

red  :=  63 
green  :=  -1 
blue  :=  21 
SEQ  i  =  112  FOR  16 
SEQ 

green  :=  green  +  4 

set. colour  (channel,  i,  red,  green,  blue) 
red  :=  red  -  4 
—  (  )  ) 

— {((  123  -  143  green  &  blue  scale  with  third  red 

red  :=  21 
green  :=  63 
blue  :=  -1 
SEQ  i  =  128  FOR  16 
SEQ 

blue  :=  blue  +  4 

set. colour  (channel,  i,  red,  green,  blue) 
green  : =  green  -  4 
— }  ) } 

— {{(  144  -  159  blue  &  redscale  with  third  green 

red  :=  -1 
green  :=  21 
blue  :=  63 
SEQ  i  =  144  FOR  16 
SEQ 

red  :=  red  +  4 

set. colour  (channel,  i,  red,  green,  blue) 
blue  :=  blue  -  4 

—  m 

— (((  160  -  175  red  &  green  scale  with  two-thirds  blue 

red  : =  63 
green  :=  -1 
blue  :=  42 
SEQ  i  =  160  FOR  16 
SEQ 

green  :=  green  +  4 

set. colour  (channel,  i,  red,  green,  blue) 
red  : =  red  -  4 
--)  }  ) 

--(((  176  -  191  green  &  blue  scale  with  two-thirds  red 

red  :=  42 
green  :=  63 
blue  :=  -1 
SEQ  i  =  176  FOR  16 
SEQ 

blue  :=  blue  +■  4 

set. colour  (channel,  i,  red,  green,  blue) 
green  :=  green  -  4 
— }  )  } 

--{((  192  -  2C7  bine  i  red  scale  with  two-thirds  greet, 

red  :=  -1 
green  :=  42 
blue  :=  63 
SEQ  i  —  192  FOR  16 
SEQ 

red  : =  red  +  4 

set .  colour  fchir.r.oi,  i,  red,  greet.,  bl  ue) 
c  1 '  J  ^  ~  1  '_i  ^  —  A 

— ;  f  213  -  22  3  ret  4  greet,  scale  with  full  blue 
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blue  :=  63 
SEQ  i  =  208  FOR  16 
SEQ 

green  :=  green  +  4 

set. colour  (channel,  i,  red,  green,  blue) 
red  :=  red  -  4 


— { { {  224  -  239  green  &  blue  scale  with  full  red 

red  :=  63 
green  :=  63 
blue  :=  -1 
SEQ  i  =  224  FOR  16 
SEQ 

blue  :=  blue  +  4 

set. colour  (channel,  i,  red,  green,  blue) 
green  : =  green  -  4 
—  Hi 

— {({  240  -  255  blue  &  red  scale  with  full  green 

red  :=  -1 
green  :=  63 
blue  :=  63 
SEQ  i  =  240  FOR  16 
SEQ 

red  :=  red  +  4 

set. colour  (channel,  i,  red,  green,  blue) 
blue  :=  blue  -  4 


-->  M 

TRUE 

SKI? 

--))) 

— { { {  set .timing 

PROC  set. timing (  VAL  INT16  width,  height,  f rame . frequency, 
VAL  INT32  line  .  frequency,  pixel .  clock., 

VAL  BCOL  interlace  ) 


— { { {  variables 
INT  AW,  HBP ,  HEP,  HS : 

INT  horizontal . ceils ,  flyback: 

INT  AL,  SL,  VFP,  VS,  VBP : 

SEQ 

calculate  horizontal  timing 

ho rizontal . ceils  :=  INT ( (pixel . clock  /  line . frequency) >>  5) 
AW  :=  ((INT  width)  >>  5) 

-  (  ■; ;  COMMENT 

-  -  :  :  :  A  0  0 

-  -  i  (  t 


AW  >  (horizontal . ceils  -  (horizontal . cells/ 5) )  --  80% 
STOP  —  Oisplay  set  too  wide 
TRUE 
SKI? 

flyback  :=  horizontal . cells  -  AW 


;  -  t  1  ”C3C:<  >> 
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IF 


(INT 

height ) 

>  1024 

AL 

:=  1024 

TRUE 

AL 

:=  (INT 

height ) 

(  (  ( 

COMMENT 

test  numbers 

:  :  :  A 

0  0 

— { { {  test  numbers 
IF 

(INT  AL)  >  (SL  -  (SL/5) )  --  80% 

STOP  —  Image  is  set  too  tall  for  frame  rate 
TRUE 
SKIP 
—  }  )  } 

--}}  } 

flyback  :=  SL  -  (INT  height) 

VFP  : =  3 
VS  :=  3 

VBP  :=  flyback  -  6 
— )  }  ) 

--{({  send  video  timing 
writeCRTC (CommandFIFO,  CTRCReset ) 


interlace 

writeCRTC (ParameterFIFO, 

TRUE 

writeCRTC (ParameterFIFO,  #12) 
writeCRTC (ParameterFIFO,  ((AW  -  2) 
writeCRTC (ParameterFIFO, 
writeCRTC (ParameterFIFO, 
writeCRTC (ParameterFIFO, 
writeCRTC (ParameterFIFO, 
writeCRTC (ParameterFIFO, 
writeCRTC (ParameterFIFO, 

—  Kl 

— ( { {  unblank  display  &  select  mode 


#  IB ) 


/\ 

(HS  -  1)  \/ 

( (VS  /\  #18) 
(HBP  -  1)  /\ 
VFP  /\  #3F) 

AL  /\  #FF) 

( (AL  /\  #0300) 


#FE)  ) 

(  (VS  /\  7) 
»  3)  \/ 

#  3  F ) 


«  5)  ) 

(  (hfp  -i: 


»  8)  \/  (VBP  « 


writeCRTC (CommandFIFO, 
ChannelModeSelect  :=  1 

—  m 


CTRCBctrl) 


--)  M 

— ( { (  locals 

INTIS  width,  height,  frame . frequency : 

INT32  line . frequency,  pixel. clock: 

3C0L  interlace,  running: 

INTIS  channel,  pixel,  red,  green,  blue,  table: 

--))} 

SEQ 

--{{{  command  interpreter 
running  :=  TRUE 
init.Gl7C(  INT  channel. A,  0  ) 
init . G17C (  INT  channel . 3,  0  ) 
init .0173 (  INT  channel. C,  0  ) 

WHILE  running 
command  ?  CASE 

crtc.init;  width;  height;  line . frequency; 

f rame . frequency;  pixel. clock;  interlace 
set.timingf  width,  height,  f rame . frequency, 

1. 1 tr  i i-i *3 1. .  c  1 .? c "“C ,  i Ti  u  0  r  1 3. 0  ) 

■0  r z  c  .  -2 c  i c  r ;  c r.  2 r. r. 0 1 ;  c  i x-s  1 ;  r ci ;  cr^or.;  D 1  u 0 


«  2)  ) 

2)  ) 
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crtc . stop 

running  :  =  FALSE 

--})} 

-Mi 
— } } } 
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6.2.1. 3.  PROC  B409.stub  "M09stub.occ” 

PROC  3409. stub  (  CHAN  OF  ANY  in,  out  ) 


♦INCLUDE  "crtc.inc 
♦USE  "graphics . lib 
B409 (  in  ) 
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6.2. 1.4.  PROC  Background  "backgrou.occ’ 

PROC  Background  (  CHAN  OF  ANY  fromTarget,  toSP, 

from? rev,  toPrev,  frcmNext,  tcNex's, 

VAL  INT  position  ) 

# INCLUDE  "s_header . inc" 

RSAL32  g. scale  : 


--{ 

(  (  constants 

VAL 

packet . length 

IS 

16  : 

VAL 

num . packets 

IS 

(128  *  8)  /  packet . length 

VAL 

min . signal 

IS 

0  : 

VAL 

max . signal 

IS 

65535  : 

—  m 

--iff  ProcessRow 

PROC  ProcessRow  (  [packet . length]  INT  data, 

[packet . length]  REAL32  back. row,  gain. row, 

offset . row  ) 


) 


[]  REAL32  target  RETYPES  data  : 

SEQ 

SEQ  i  =  3  FOR  backet . length 
INT  digital  : 

SEQ 

digital  :  =  INT  TRUNC  (  ((  (target  [  i  ]  +-  back.row[i])  * 

gain . row [ i ] )  of fset . row [ i] )  *  g. scale 


digital  < 
data [i] 
digital  > 
data [ i] 
TRUE 

data [i] 


min .signal 
:=  min. signal 
max .signal 
:=  max. signal 

:=  digital 


; 

--{ff  ProcessFrame 

PROC  ProcessFrame  (  CHAN  OF  ANY  in,  out, 

[128] [3]  REAL32  Background,  Gain,  Offset  ) 


— !(!  retype  array  to  packet . length 

[num. packets] [packet . length]  REAL32  p. background  RETYPES 

Background  : 

[num. packets] [packet . length]  REAL32  p.gain  RETYPES  Gain 

[num. packets] [packet . length]  REAL 3 2  p. offset  RETYPES  Gffset 


— { { !  variaoles 

U .  -  n .  P  t  r ,  out .  pt  r ,  process,  per, 
[ 3 ] [packet . length ]  INT  buffer  : 
PLACE  buffer  IN  WORKSPACE  : 

--ill 


in . pt  r 


process. ptr  :=  1 
out.ptr  : =  0 


- -  w 


temp  : 


;r.~ce? 
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in  ?  buffer[l] 

ProcessRow(  buffer [0],  p. background [1] ,  p.gaintl],  p. offset [1]  ) 
--}}} 

--({{  do  middle  rows 

SEQ  row  =  1  FOR  (num.packets-2) 

SEQ 

PRI  PAR 
PAR 

in  ?  buffer [in .ptr] 
out  !  buffer [out .ptr] 

ProcessRow(  buffer [process .ptr] ,  p. background] row] , 
p.gainfrow],  p. offset [row]  ) 
temp  :=  out. ptr 
out. ptr  :=  process. ptr 
process. ptr  :=  in. ptr 
in. ptr  :=  temp 
—  HI 

— {{(  process  last  row 
VAL  i  IS  num. packets  -  1  : 

PRI  PAR 

out  !  buffer [out .ptr] 

ProcessRow(  buffer [process .ptr] ,  p.backgroundfi] , 
p.gainji],  p.offsetfi]  ) 

—  m 

--{{{  output  last  row 
out  !  buffer [  process. ptr  ] 

—  m 
— }}) 

— (((  CalibrationFrame 

PROC  CalibrationFrame  (  CHAN  OF  ANY  out,  VAL  REAL32  level, 

[128]  [8]  REAL 3 2  Gain,  Offset  ) 

— (((  retype  array  to  packet . length 

[num. packets] [packet . length]  REAL32  p.gain  RETYPES  Gain 

[num. packets] [packet . length]  REAL32  p. offset  RETYPES  Offset 

—  m 

-- { { {  variables 
INT  out. ptr  : 

[2 ] [packet . length]  INT  buffer  : 

PLACE  buffer  IN  WORKSPACE  : 

[packet . length]  REAL32  b.row  : 

[packet . length]  INT  t.row  : 

-Hi 

SEQ 

out. ptr  :=  0 

— ( ( {  initialize 

VAL  INT  i. level  RETYPES  level  : 

SEQ  i  =  0  FOR  packet . length 
SEQ 

b . row [i]  :=  0.0  (REAL32) 
t.row[i]  :=  i. level 

—  m 

— (((  process  first  row 
SEQ 

buffer[0]  :=  t.row 

ProcessRowf  buffer[0],  b.row,  p.gaintl],  p.offsetfi]  ) 

— }  n 

—  f ( (  do  middle  rows 

SEQ  row  =  1  FOR  (num . packets-1 ) 

SEQ 

PRI  PAR 
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out  !  buffer [out .ptr] 

SEQ 

buffer [ 1-out .ptr]  :=  t . row 
ProcessRow(  buffer [ 1-out . ptr ] ,  b.row, 

p.gain[row],  p . of fset [ row]  ) 
out. ptr  :=  1  -  out. ptr 
— )}} 

--({{  output  last  row 
out  !  buffer [  out. ptr  ] 

— )  )  > 

— } } ) 

— { { {  SelectRow 

PROC  SelectRow  (  [8]  REAL 3 2  dest,  [128]  REAL 3 2  source  ) 

SEQ  i  =  0  FOR  8 

dest[i]  :=  source!  (i*16)  +  position  ] 

—  H  ) 

— { { {  variables 

[max. frames] [128] [8]  REAL32  Background  : 

[128] [8]  REAL32  Gain,  Offset  : 

BYTE  length  : 

[max. message]  INT  message  : 
command  IS  message [0]  : 

params  IS  [message  FROM  1  FOR  (max. message-1) ]  : 

[]  REAL32  r. pa rams  RETYPES  params  : 

--}}> 

SEQ 

— {({  initialize  last  background  frame 
SEQ  i  =  0  FOR  128 
SEQ  j  =  0  FOR  8 

Background [max . frames-1] [i] [ j]  :=  0.0008234782  (REAL32) 

—  m 

WHILE  TRUE 
SEQ 

— {{{  get  command  and  pass  on 
fromPrev  ?  length : rmessage 
IF 

position  <  15 

toNext  !  length : :message 
TRUE 
SKIP 
— }  }  } 

CASE  command 

— ({(  c . set . background 
c . set . background 

ProcessFrame (  fromTarget,  toSP,  Background!  params [0]  ], 
Gain,  Offset  ) 

—  m 

— {{{  c. background. row 
c . background . row 

SelectRow(  Background!  params[0]  ][  params[l]  ],  [r. params 

FROM  2  FOR  128]  ) 

—  Ml 

-- { { (  c .gain  .  row 
c . gain . row 

SelectRow]  Gain[  params [0]  ],  [r. params  FROM  1  FOR  128]  ) 

— }}} 

-- ( ( f  c .offset . row 
c .of fset . row 

SelectRow]  Offset!  params [0]  ],  [r. params  FROM  1  FOR  128]  ) 

-Ml 
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(REAL32) ) 

(REAL32) 


— {{(  c .global . scale 
c. global . scale 

g. scale  : =  r. pa rams [0] 

— }}} 

— {{{  c. test .background 
c.test .background 
SEQ 

SEQ  i  =  0  FOR  128 
SEQ  j  =  0  FOR  8 

VAL  ccl  IS  (j  «  4)  +  position  : 

SEQ 

Gain [i] [ j ]  :=  0.80008787  (REAL32 )  - 

{ (REAL32  ROUND  COl)  /  254.3456 

Offset [ i] [ j ]  :=0.0008723984  (REAL32)  + 

( (REAL32  ROUND  i)  *  19.789  (REAL32 ) ) 
Background [max . frames-1 ][ i] [ j ]  :=  0.0008234782 

— } }  } 

— {{{  c . calibration . frame 
c . calibration . frame 

CalibrationFrame (  toSP,  r.paramsfO],  Gain,  Off-  '  ) 

—  m 
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TEXT  IS  COMPLETE 
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6. 2.1.5.  PROC  Controller  "contrail. occ” 

PROC  Controller  (  CHAN  OF  ANY  fromHost,  toHost,  fromGTSEI,  toGTSEI, 

fromBG,  toBG,  fromSP,  toSP  ) 


PRI  PAR 

— {{{  make  processing  a  high  priority  process 
♦INCLUDE  "s_header . inc" 

— { { {  variables 
— { { {  command  variables 
BYTE  length  : 

[max. message]  INT  message  : 
command  IS  message [0]  : 

params  IS  [message  FROM  1  FOR  (max. message-1) ]  : 

[]  REAL32  r. params  RETYPES  params  : 

— )}} 

[max. sim. frames]  REAL32  frame. rate,  frame. time,  frame. range  : 
[max. sim. frames]  INT  ticks  : 

[max . sim. frames] [p . length]  REAL32  position  : 

INT  frames . loaded,  start,  value  :  —  temporary  variables 

INT  current . frame,  increment  : 

INT  offset,  col,  row  : 

BOOL  test. mode  : 

INT  calibration . frame,  num. cal . frames  : 

[10]  REAL32  calibration . level  : 

[10]  INT  sp. cal. level  : 

VAL  seconds .per .tick  IS  1 . OE-6 (REAL32 )  : 

TIMER  clock  : 

— { { {  force  some  scalars  in  vector  space 

[3]  INT  frame. array  : 

sim. frame  IS  frame . array [0]  : 

first. frame  IS  frame. array [1]  : 

last. frame  IS  frame . array [2] : 

— }  1 } 

—  >  >  > 

SEQ 

— { ( {  initialize 
current . frame  :=  max. frames  -  1 
increment  :=  1 
test. mode  :=  TRUE 
calibration . frame  :=  10 
— )  }  ) 

WHILE  TRUE 
SEQ 

— ( ( {  get  command 
fromHost  ?  length : :message 

—  m 

— {{{  process  command 
IF 

— {{{  GTSEI  and  Target  commands 
(command  >=  256)  AND  (command  <  768) 
toGTSEI  !  length : :message 
— ))} 

--{{{  Background  commands 
(command  >=  768)  AND  (command  <  1024) 
toBG  !  length : :message 
--))} 

--{{{  Guidance  commands 

(command  >=  1280)  AND  (command  <  1536) 


35 


Final  Report 


toSP  !  length : :message 
— 11} 

— {{{  c. read. graphics 
command  =  c. read. graphics 
INT  bufLength  : 

INT  number . of . transfers  : 

[maxGraphicBuf fer] BYTE  graphicsBuf fer  : 

SEQ 

toSP  !  length : rmessage 
fromSP  ?  number. of .transfers 
toHost  !  number .of .transfers 
SEQ  i  =  0  FOR  number . of .transfers 
SEQ 

fromSP  ?  bufLength: rgraphicsBuf fer 
toHost  !  bufLength: :graphicsBuffer 

— }  > } 

— {{{  c . frame . start 
command  =  c . start . frame 
SEQ 
IF 

paramsfO]  <  0 
SKIP 

params[0]  =  0 

sim. frame  :=  params[l] 

TRUE 

sim. frame  :=  first. frame  +  params[l] 

—  {({  sim. frame  :=  MAX  (  0,  MIN (  last. frame,  sim. frame 

IF 

sim. frame  <  0 
sim. frame  :=  0 
sim. frame  >  last. frame 
sim. frame  :=  last. frame 
TRUE 
SKIP 
— }  }  } 

increment  :=  params[2] 

— calibration . frame  :=  num. cal . frames 
test. mode  :=  FALSE 
— )  } } 

— ( { {  c . run .single 
command  =  c. run. single 
SEQ 
IF 


calibration . level 

0;  65535; 

64 .0 (REAL32) 


s im . f  rame  ] ; 
sim. frame  ] 


calibration . frame  <  num. cal . frames 
— (({  send  calibration  frame 
SEQ 

toBG  !  BYTE  2;  c . calibration . frame; 

[  calibration . frame  ] 

toSP  !  BYTE  9;  c.sp. frame;  calibration.frame; 

sp . cal . level [  calibration.frame  ]; 

0 . 0 (REAL32 ) ;  0.0(REAL32);  -1; 

calibration.frame  :=  calibration.frame  +  1 
— }  I  } 

sim. frame  <  first. frame 

— {{(  send  next  non-FPA  frame 
SEQ 

toSP  !  12 (BYTE) ;  c . guidance . run ;  0;  frame. range [ 

frame. time[  sim. frame  ];  0;  0;  position [ 
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sim. frame 


toSP  !  6 (3YTE) ;  c . display . info;  0;  frame. range! 

frame. timet  sim. frame  ];  0;  0 


sim. frame  ]  + 
sim. frame  ] ) 


IF 

test .mode 

frame. timet  sim. frame 

(1.0 (REAL32 )  / 


]  :=  frame. timet 

frame . rate [ 


sim. frame  <  last. frame 

sim. frame  :=  sim. frame  +  increment 
TRUE 
SKIP 

— }  }  } 

TRUE 

— {{{  send  next  FPA  frame 
SEQ 

current . frame  :=  sim. frame  -  first. frame 


offset  :=  ((row  /\  3)  <<  2)  +  (col  /\  3) 
toGTSEI  !  BYTE  2;  c . set . crossbar ;  (col  »  2)  /\  15 
toGTSEI  !  BYTE  5;  c  .  set . target ;  current . frame ; 
offset;  (row»2)  ;  (col»2) 

toBG  !  BYTE  2;  c . set . background;  current . frame 
toSP  !  BYTE  15;  c.sp. frame;  -1;  0;  2500;  65535; 

f rame. range [  sim. frame  ]; 


frame. timet  sim. frame  ]; 


current . frame+1 ;  frame. rate [ 


sim. frame  ];  position!  sim. frame] 

IF 

test .mode 

—  {{{  update  statistics 
SEQ 

frame. timet  sim. frame 

sim. frame  ]  +  (1.0(REAL32)  / 


:=  frame. timet 
frame . rate [ 


sim. frame  ] ) 
sim. frame  ]  - 
/  frame. rate [ 


frame. range [  sim. frame  ]  ; =  frame. range! 


sim. frame 


(10000.0 (REAL32) 

]) 

— }  } ) 

sim. frame  <  last. frame 

sim. frame  :=  sim. frame  +  increment 


TRUE 

SKIP 


— }  }  ) 

— (({  process  any  guidance  commands 

VAL  delay. ticks  IS  INT  ROUND  (0.05  (REAL32 )  / 

seconds .per . tick)  : 

INT  time. now,  interrupt . time  : 

INT  command  : 

BOOL  exit  : 


SEQ 

clock  ?  time. now 

interrupt . time  :=  time. now  +  delay. ticks 


exit  :=  FALSE 
WHILE  NOT  exit 
PRI  ALT 

clock  ?  AFTER  interrupt . time 
exit  :=  TRUE 
fromSP  ?  command 
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— {{{  process  command 
CASE  command 
cc . shift . image 

INT  shift. col,  shift. row  : 

SEQ 

fromSP  ?  shift, '~ol;  shift. row 
col  :=  (col  +  shift. col)  /\  511 
row  :=  (row  +  shift. row)  /\  511 


ELSE 
SKIP 
—  )> } 


—  m 
— } ) ) 

--({{  c . run . continuous 
command  =*  c .  run .  continuous 

VAL  delay. ticks  IS  INT  ROUND (  5 . OE-4 (REAL32 )  / 

seconds . per . tick  )  : 

INT  last . start . time,  next . start . time,  interrupt . time  : 

INT  command  : 

BOOL  running,  exit  : 

SEQ 

— {{{  check  sending  calibration  frames 
WHILE  calibration . frame  <  num. cal . frames 
— {{{  send  calibration  frame 
SEQ 

toBG  !  BYTE  2;  c . calibration . frame; 

calibration . level (  calibration . frame  ] 

toSP  !  BYTE  9;  c.sp. frame;  calibration.frame; 

sp . cal . level [  calibration . frame  ];  0; 


65535; 


0 . 0 (REAL32 ) ;  0.0(REAL32);  -1; 


64 . 0 (REAL32 ) 

calibration.frame  :=  calibration.frame  +  l 
— ) )  ) 

—  m 

— { { {  initialize 
clock  ?  last . start . time 
interrupt .time  :=  last . start . time 
next . start . time  :=  interrupt .time  +  delay. ticks 
— }  )  ) 

running  :=  TRUE 
WHILE  running 
SEQ 

--{({  send  current  frame 


IF 


sim. frame  <  first . frame 

— ({{  send  next  non-FPA  frame 
SEQ 

— (((  wait  for  correct  time 
INT  current. time  : 

VAL  wait. ticks  IS  INT  ROUND (  1 . OE-4 (REAL32 ) 

/  seconds . per . tick  )  : 

SEQ 

clock  ?  current. time 
IF 

(next . start . time  MINUS  current . time)  > 

wait .ticks 

clock  ?  AFTER  next . start . time 
TRUE 
SKIP 

—  )  )) 


frame.range[  sim. frame 


toSP  !  12 (BYTE) ;  c . guidance . run ;  Q; 
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position!  sim. frame  ] 
frame. range!  sim. frame  ]; 


frame. time!  sim. frame  ];  0; 

toSP  !  6 (BYTE);  c.display . info; 

frame. timet  sim. frame  ];  0;  0 


—  1  )  ) 
TRUE 


0; 

0; 


/\  15 

offset;  (row>>2) ; 


—  lit  send  out  FPA  frame 
SEQ 

current . frame  :=  sim. frame  -  f irst . frame 
offset  :=  ((row  /\  3)  <<  2)  +  (col  /\  3) 
toGTSEI  !  BYTE  2;  c . set . crossbar ;  (col  »  2) 
toGTSEI  !  BYTE  5;  c . set . target ;  current . frame; 

(col»2) 


— {{{  wait  for  correct  time 
INT  current. time  : 

VAL  wait. ticks  IS  INT  ROUND (  1 . OE-4 (REAL32 ) 

/  seconds .per .tick  )  : 

SEQ 

clock  ?  cur rent. time 
IF 

(next . start . time  MINUS  current . time)  > 

wait .ticks 

clock  ?  AFTER  next . start . time 
TRUE 
SKIP 

—  m 


65535; 

frame. time!  sim. frame 
sim. frame  ]; 


toBG  '  BYTE  2;  c . set .background;  current . frame 
toSP  !  BYTE  15;  c . sp . frame;  -1;  0;  2500; 

frame. range!  sim. frame  ]; 

current . frame+1 ;  frame. rate! 

position!  sim. frame  ] 


—  n  t 

--{{{  move  to  next  frame 
IF 


test .mode 


sim. frame  ] 
sim. frame  ] ) 
sim. frame  ] 
frame . rate [ 


— {({  update  statistics 
SEQ 

frame. time!  sim. frame 

+  (1.0 (REAL32 )  / 


frame. range!  sim. frame 


sim. frame  ] ) 


]  :=  frame. time! 

frame . rate [ 

]  :=  frame. range! 

(10000. 0(REAL32)  / 


—  1  }  } 

sim. frame  <  last. frame 

sim. frame  :=  sim. frame  +  increment 
TRUE 
SKIP 


—  )H 

— (((  update  for  next  frame 

last . start . time  :=  next . start . time 

--clock  ?  last . start . time 
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next . start . time  :=  last . start . time  PLUS  ticks! 


sim. frame  ] 

interrupt . time  :=  next . start . time  MINUS  delay. ticks 

—  {if 

—  m 

exit  :=  FALSE 
WHILE  NOT  exit 
PRI  ALT 

clock  ?  AFTER  interrupt .time 
exit  :=  TRUE 
fromHost  ?  command 

— {({  process  command 
CASE  command 
cc . shift . image 

INT  shift. col,  shift. row  : 

SEQ 

fromHost  ?  shift. col;  shift. row 
col  :=  (col  +  shift. col)  /\  511 
row  :=  (row  +  shift. row)  /\  511 
cc . exit 
SEQ 

exit  :=  TRUE 
running  :=  FALSE 

ELSE 

SKIP 


— }  )  ) 

fromSP  ?  command 

— {({  process  command 
CASE  command 
cc . shift . image 

INT  shift. col,  shift. row  : 

SEQ 

fromSP  ?  shift. col;  shift. row 
col  :»  (col  +  shift. col)  /\  511 
row  :=  (row  +  shift. row)  /\  511 

ELSE 

SKIP 

—  m 

—  > ) ) 

— ( { {  c . frame . rate 
command  =  c. frame. rate 
SEQ 

start  :=  params [0] 
frames . loaded  :=  params [1] 

[frame. rate  FROM  start  FOR  frames . loaded]  := 

[r. params  FROM  2  FOR 

frames . loaded] 

—  M) 

-- ( ( (  c . frame .time 
command  =  c. frame. time 
SEQ 

start  :=  params [0] 
frames . loaded  :=  params [1] 

[frame. time  FROM  start  FOR  frames . loaded]  ;= 

[r. pa rams  FROM  2  FOR 


frames . loaded] 

—  1  }  } 

— { { {  c . frame . range 
comm, and  =  c  .  frame  .  range 
SEQ 

start  :=  params [0] 
frames . loaded  :=  params [1] 

[frame. range  FROM  start  FOR  frames . loaded]  := 
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frames . loaded] 

— }  1  1 

—  ({{  c .  sim.  position 
command  =  c . sim. position 
INT  ptr  : 

SEQ 

value  :=  pa rams [0] 
start  :=  params [1] 
frames . loaded  :=  params [2] 


[r. params  FROM  2  FOR 


ptr  :=  3 

SEQ  i  =  start  FOR  frames . loaded 
SEQ 

position [i] [value]  :=  r .params [ptr] 
ptr  :=  ptr  +  1 

— )}} 

— {({  c . sim. start . frames 
command  =  c . sim. start . frames 
SEQ 

first. frame  :=  params [0] 
last. frame  : =  params [1] 


frame. time [i] ) 


IF 

(first. frame  +1)  <  last. frame 
SEQ 

SEQ  i  =  0  FOR  last. frame 

ticks [i]  :  =  INT  ROUND (  ( frame . time [ i+1 ] 


/ 


seconds .per .tick  ) 

ticks [  last. frame  ]  :=  ticks [  last. frame-1  ] 


TRUE 

SKIP 


— }  }  } 

— {{{  c. test .controller 
command  =  c. test .controller 


SEQ 

sim. frame  :=  first. frame 
test. mode  :=  TRUE 
row  : =  0 
col  :=  0 

ticks [  sim. frame  ]  := 

64.0 (REAL32 )  )  / 


frame. range [  sim. frame  ] 
frame.time[  sim. frame  ] 
frame. rate [  sim. frame  ] 
—  1  }  } 

— ( { {  c . restart 
command  =  c. restart 
SEQ 

calibration . frame  :=  0 
test. mode  : =  FALSE 
sim. frame  :=  0 
row  : =  0 
col  :=  0 


+  (max. frames  -  1) 


INT  ROUND (  (  1 . 0 (REAL32 ) 

seconds .per . tick  ) 
:=  100000.0  (REAL32 ) 

=0.0  (REAL32) 

=64.0  (REAL32 ) 


—  m 

--({(  c . set . calibration 
command  =  c . set . calibration 


SEQ 

num. cal . frames  :=  params[0] 

[calibration . level  FROM  0  FOR  num. cal . frames]  := 
[r. params  FROM  1  FOR  num. cal . frames] 

[ sp . cal . level  FROM  0  FOR  num. cal . frames ]  :  = 


/ 
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[params  FROM  1+num. cal . frames 

num. cal . frames ] 

— }  }  } 

— { { {  else  SKIP 
TRUE 
SKIP 
—  U  } 

— }  }  1 

— }  n 

SKIP 


FOR 
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6.2. 1.6.  PROC  Firstbuffer  (Graphics  Buffer)  "firstbuf.occ" 

PROC  FirstBuffer  (  CHAN  OF  ANY  in,  out,  fromNext,  toPrev, 

VAL  INT  position,  shift  ) 

— ( ( {  variables 

[2] [64]  INT  input. buffer  : 

INT  count  : 

— )  )  1 

— { { {  channels 

CHAN  OF  ANY  synchO,  synchl,  internal  : 

—  >  >  > 

— {{{  Receiver 

PROC  Receiver  (  CHAN  OF  ANY  in,  outO,  outl,  [2] [64]  INT  buffer  ) 

INT  i  : 

SEQ 

i  :=  0 
WHILE  TRUE 
SEQ 

in  ?  buffer[i] 
outO  !  i 
outl  !  i 
i  :=  1  -  i 

—  m 

--{{{  Sender 

PROC  Sender  (  CHAN  OF  ANY  in,  out,  [2] [64]  INT  buffer  ) 

INT  i  : 

SEQ 

WHILE  TRUE 
SEQ 

in  ?  i 

out  !  buffer[i] 

--}  }  } 

— [ { {  Extractor 

PROC  Extractor  (  CHAN  OF  ANY  internal,  in,  out, 

VAL  INT  count  ) 

— { { (  variables 

[2] [64] [2]  BYTE  buffer  : 

INT  output  : 

—  HI 

SEQ 

internal  ?  buffer[0] 
output  :=  0 
WHILE  TRUE 
SEQ 

SEQ  i  =  0  FOR  count 
SEQ 
PAR 

out  !  buffer [output ] 
in  ?  buffer [  1-output  ] 
output  :=  1  -  output 

PAR 

out  !  buffer [output ] 
internal  ?  buffer [ 1-output ] 
output  :=  1  -  output 
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PROC  Formatter  (  CHAN  OF  ANY  synch,  out, 

[2] [64]  INT  input. buffer  ) 

— { { {  variables 

[2] [64] [4]  BYTE  b . in  RETYPES  input. buffer  : 
[64] [2]  BYTE  buffer  : 

[64*2]  BYTE  bufferl  RETYPES  buffer  : 

INT  in.ptr  : 

— }  }  ) 

SEQ 

WHILE  TRUE 
SEQ 

— {{{  form  message  in  buffer 
SEQ 

synch  ?  in.ptr 

source  IS  input .buffer [ in .ptr]  : 

INT  p  : 

SEQ 

p  :=  0 

SEQ  i  =  0  FOR  64 
INT  store  : 

SEQ 

store  :=  source [i]  »  shift 
— {{{  check  for  zeroing  store 
IF 

store  =  0 
IF 

source [i]  <>  0 
store  :=  1 
TRUE 
SKIP 

TRUE 

SKIP 

—  n ) 

bufferl [p]  :=  BYTE  store 
bufferl [p+1]  :=  BYTE  store 

p  :=  p  +  2 

— }  )  } 

out  !  buffer 


— }  )  } 

SEQ 

IF 

position  <  8 

count  :=  7  -  position 
TRUE 

count  :=  15  -  position 
PRI  PAR 
PAR 

Receiver (  in,  synchO,  synchl,  input. buffer  ) 
Sender (  synchO,  out,  input. buffer  ) 

Extractor (  internal,  fromNext,  toPrev,  count  ) 
Formatter!  synchl,  internal,  input. buffer  ) 
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6. 2. 1.7.  PROC  Formatter  "formatte.occ" 

PROC  Formatter  (  CHAN  OF  ANY  in,  out  ) 

— { ( i  constants 

VAL  buffer. size  IS  64*16  : 

--}  }  } 

-- { { {  variables 

[2 ]  [buf fer . size]  BYTE  input .buffer,  output .buffer  : 

[8]  INT  store. offset  : 

— }}  } 

— { { {  channels 

CHAN  OF  ANY  synchO,  synchl  : 

—  m 

-- ( { {  Receiver 

PROC  Receiver  (  CHAN  OF  ANY  in,  out,  [2] [buffer . size]  BYTE  buffer  ) 

INT  i  : 

SEQ 

i  :=  0 
WHILE  TRUE 
SEQ 

in  ?  buffer[i] 
out  !  i 
i  :=  1  -  i 

--))  } 

— ( ( {  Formatter 

PROC  Formatter  (  CHAN  OF  ANY  in,  out, 

[2] [buffer. size]  BYTE  in. buffer,  out. buffer  ) 

INT  out.ptr,  in.ptr  : 

SEQ 

out.ptr  :=  0 
WHILE  TRUE 
SEQ 

in  ?  in.ptr 
— { { {  format 

[8] [64] [2]  BYTE  inb  RETYPES  in .buffer [in .ptr]  : 

[64] [16]  BYTE  outb  RETYPES  out .buffer [out .ptr]  : 

SEQ 

SEQ  i  =  0  FOR  8 

source  IS  inb[i]  : 

VAL  start  IS  i  <<  1  : 

MOVE2D (  source,  0,  0,  outb,  start,  0,  2,  64  ) 

— )  } } 

out  !  out.ptr 
out.ptr  :=  1  -  out.ptr 

— )  }  1 

— { { (  Sender 

PROC  Sender  (  CHAN  OF  ANY  in,  out,  [2] [buffer .size]  BYTE  buffer  ) 

INT  i  : 

SEQ 

WHILE  TRUE 
SEQ 

in  ?  i 

out  !  buffer[i] 

—  m 

SEQ 

WHILE  TRUE 
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PRI  PAR 
PAR 

Receiver (  in,  synchO,  input. buffer  ) 

Sender(  synchl,  out,  output .buffer  ) 

Formatter!  synchO,  synchl,  input .buffer,  output .buffer  ) 
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6.2.1. 8.  Various  graphics  routines  ”g_line.occ" 

— { ( (  SC  line 
— : : :A  3  10 

—  Ul  line 

— { { {  libraries 
♦INCLUDE  "g_header . inc" 

— }  )  ) 

--{{{  plot 

PROC  plot  (  VAL  []  INT  window,  []  BYTE  screen, 

VAL  INT  x,  y,  VAL  BYTE  color  ) 

—  plots  a  single  point  on  the  screen 

—  makes  sure  the  pixels  are  actually  in  the  window 
VAL  pixels. line  IS  window[  w. pixels .line  ]  : 

VAL  size.x  IS  window[  w.size.x  ]  : 

VAL  size.y  IS  window!  w.size.y  ]  : 

SEQ 

IF 

(x  <  0)  OR  (y  <  0)  OR  (x  >=  si2e.x)  OR  (y  >=  size.y) 

SKIP 

TRUE 

screen!  (y  *  pixels. line)  +  x  ]  :  =  color 

—  M  ) 

-- { { (  draw. line 

PROC  draw. line  (  VAL  []  INT  window,  []  BYTE  screen, 

VAL  INT  xl,  yl,  x2 ,  y2, 

VAL  BYTE  color  ) 

— ( { (  clip . line 

PROC  clip. line  (VAL  INT  xl,  yl,  x2,  y2,  INT  result,  VAL  []INT  window) 
—  decides  whether  a  line  is  totally  on  or  off  screen/window 
-- { { (  codes 


VAL  code. cent re 

IS 

#00  : 

—  0000 

VAL  code. left 

IS 

#01  : 

—  0001 

VAL  code . right 

IS 

#02  : 

—  0010 

VAL  code. bottom 

IS 

#04  : 

—  0100 

VAL  code. top 
-111 

IS 

#08  : 

—  1000 

INT  codel,  code2  : 

— { { {  PROC  check 

PROC  check  (VAL  INT  x,  y,  INT  code) 
VAL  x.max  IS  window!  w.size.x  ]  : 
VAL  y.max  IS  window!  w.size.y  ]  : 
SEQ 
IF 

— ({(  x.min  <=  x  <  x.max 
(x  >=  0)  AND  (x  <  x.max) 
code  :=  code. cent re 
— }  J  } 

— ( ( (  x  <  x.min 
x  <  0 

code  :=  code. left 

—  m 

— ( ( (  x  >  x.max 
TRUE  — x  >=  x.max 
code  :=  code . right 


--(((  y.min  =  y  <  y.max 
(y  >=  0)  AND  (y  <  y.max) 
SKIP 
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— )  )  ) 

— { ( (  y  <  y.min 
y  <  0 

code  :=  code  \/  code. top 

—  n  i 

— { l (  y  >-  y .max 
TRUE  — y  >  y.raax 

code  :*»  code  \/  code. bottom 
--)  I  ) 

—  1  n 

SEQ 

check  (xl,  yl,  codel) 
check  (x2,  y2,  code2) 

IF 

--({(  line  lies  entirely  within  window 
(codel  \/  code2)  =  0 
result  :=  in. range 
— }  }  ) 

— (((  line  lies  entirely  outside  window 
(codel  /\  code2)  <>  0 
result  :  =  not. inrange 

—  m 

--(({  partially  in  window  perhaps 
TRUE 

result  :=  part. inrange 
--))} 


— !  }  } 

— (((  slow. draw. line 

PROC  slow. draw. line  (  VAL  []  INT  window,  []  BYTE  screen, 

VAL  INT  xl,  yl,  x2 ,  y2, 

VAL  BYTE  color  ) 

--  uses  Bresenham's  integer  algorithm  to  calculate  plotting  points 
—  calls  plot  to  draw  actual  pixels  on  the  screen 
VAL  pixels. line  IS  window[w. pixels . line]  : 

INT  dx,  dy  : 

INT  two.dx,  two.dy  : 

INT  error  : 

SEQ 

dx  :=  x2  -  xl 
dy  :=  y2  -  yl 
IF 

(dx  <>  0)  OR  (dy  <>  0) 

SEQ 

( (  a  line  to  draw 
IF 

--(((  dy  =  0  --  horizontal  line 

dy  =  0 

SEQ  i  =  xl  FOR  dx  +  1 

plot  (window,  screen,  i,  yl,  color) 

--})] 

--(({  dx  =0  —  vertical  line 

dx  =  0 
SEQ 
IF 


dy  >  0 

SEQ  i  =  yl  FOR  dy  +  1 

plot  (window,  screen,  xl,  i,  color) 

TRUE 

SEQ  1  =  y2  FOR  (-dy)  +  1 

plot  (window,  screen,  xl,  i,  color) 


I  j  dx  <>  9  dy  <>  0 


--  diagonal  line 


4S 


Final  Report 


TRUE 

INT  x,  y  : 

INT  delta. y  : 

SEQ 

x  :=  xl 

y  :=  yi 

two.dx  :=  dx  +  dx 
IF 

— {{{  dy  >  0 
dy  >  0 
SEQ 

two.dy  :=  dy  +  dy 
IF 

--{ { {  dy  >  dx 
dy  >  dx 
SEQ 

error  :=  two.dx  -  dy 
— { { (  plot  line 
SEQ  i  =  0  FOR  dy  +  1 
SEQ 

plot  (window,  screen,  x,  y,  color  ) 
IF 

error  >=  0 
SEQ 

x  :=  x  +  1 

error  :=  error  -  two.dy 

TRUE 

SKIP 

y  :=  y  +  1 

error  :=  error  +  two.dx 

— m 

—  { {  {  dy  <»  dx 
TRUE 

SEQ 

error  :=  two.dy  -  dx 
— { ( (  plot  line 
SEQ  i  =  0  FOR  dx  +  1 
SEQ 

plot  (window,  screen,  x,  y,  color  ) 
IF 

error  >=  0 
SEQ 

y  :=  y  +  1 

error  :=  error  -  two.dx 

TRUE 

SKIP 

x  :=  x  +  1 

error  :=  error  +  two.dy 
) ) 

—  >  )  ) 

—  n  i 

—  (  { {  dy  <  0 
TRUE 

SEQ 

dy  : =  -dy 

two.dy  :=  dy  +  dy 

IF 

— ( ( {  dy  >  dx 
dy  >  dx 
SEQ 

error  :=  two.dx  -  dy 
— ( { {  plot  line 
SEQ  i  =  0  FOR  dy  +  1 
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SEQ 

plot  (window,  screen,  x,  y,  color) 
IF 

error  >=  0 
SEQ 

x  :=  x  +  1 

error  :=  error  -  two.dy 

TRUE 

SKIP 

y  :=  y  -  1 

error  :=  error  +  two.dx 
— )  )  ( 

—  m 

— { { !  dy  <=  dx 
TRUE 
SEQ 

error  :=  two.dy  -  dx 
SEQ  i  =  0  FOR  dx  +  1 
SEQ 

plot  (window,  screen,  x,  y,  color) 
IF 

error  >=  0 
SEQ 

y  :=  y  -  i 

error  :=  error  -  two.dx 

TRUE 

SKIP 

x  :=  x  +  1 

error  :=  error  +  two.dy 

-->}) 

— }  K 

— 1)1 

—  n  i 

TRUE 

plot  (window,  screen,  xl,  yl,  color) 


—  m 

— {{{  fast .draw. line 

PROC  fast .draw. line  (VAL  []  INT  window,  []  BYTE  screen, 

VAL  INT  xl,  yl,  x2,  y2, 

VAL  BYTE  color) 

—  uses  Bresenham's  integer  algorithm  to  calculate  plotting  points 
--  points  are  in  increasing  value:  of  x 

—  only  called  when  the  line  is  nown  to  be  on  screen  /  in  window 

and 

--  the  current  pixel  size  is  one 

INT  dx,  dy,  two.dx,  two.dy,  delta. x,  delta. y  : 

INT  error,  pixel  : 

VAL  pixels. line  IS  window[  w. pixels . line  ]  : 

SEQ 

dx  :=  x2  -  xl  --  always  zero  or  positive 

dy  :=  y2  -  yl 

pixel  :=  (yl  *  pixels. line)  +  xl 
IF 

(dx  <>  0)  OR  (dy  <>  0) 

SEQ 

-- { ( (  a  line  to  draw 
IF 

--{((  dy  =  0  --  horizontal  line 

dy  =  0 

SEQ  i  =  pixel  FOR  dx  +  1 
screen  [i]  .-=  color 
--til 
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— { ( {  dx  =  0  —  vertical  line 

<±x  =  0 
SEQ 
IF 

dy  >  0 

SEQ  i  =  0  FOR  dy  +  1 
SEQ 

screen [pixel]  :=  color 
pixel  :=  pixel  +  pixels. line 

TRUE 

SEQ  i  =  0  FOR  (-dy)  +  1 
SEQ 

screen [pixel]  :=  color 
pixel  :=  pixel  -  pixels. line 

— } }  > 

— { { {  dx  <>  0  AND  dy  <>  0 
TRUE 

INT  delta.y  : 

SEQ 

two.dx  :=  dx  +  dx 
IF 

dy  >  0 

delta.y  :=  pixels . line 
TRUE 
SEQ 

dy  :=  -dy 

delta.y  :=  -pixels. line 
two.dy  : =  dy  +  dy 
IF 

— { { {  dy  >  dx 
dy  >  dx 
SEQ 

error  :=  two.dx  -  dy 
— {{{  plot  line 
SEQ  i  =  0  FOR  dy  +  1 
SEQ 

screen [pixel]  color 
IF 

error  >=  0 
SEQ 

pixel  :=  pixel  +  1 
error  :=  error  -  two.dy 

TRUE 

SKIP 

pixel  :=  pixel  +  delta.y 
error  :=  error  +  two.dx 
— } } } 

— n ) 

— {{{  dy  <=  dx 
TRUE 
SEQ 

error  :=  two.dy  -  dx 
-- ( ( {  plot  line 
SEQ  i  =  0  FOR  dx  +  1 
SEQ 

screen [pixel]  :=  color 
IF 

error  >=  0 
SEQ 

pixel  :=  pixel  +  delta.y 
error  :=  error  -  two.dx 

TRUE 

SKI? 

pixel  :=  pixel  +  1 
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error  :  =  error  +  two.dy 
— )  }  } 

— }  )  > 

—  (  i  } 

— }  }  } 

TRUE 

screen [pixel]  :=  color 

--} }  I 

INT  x3,  y3,  x4,  y4  : 

INT  result  : 

SEQ 

— {{(  swap  xl,yl  with  x2,y2  if  xl  >  x2 
IF 

xl  >  x2 
SEQ 

x3  :=  x2 
y3  :=  y2 
x4  :=  xl 
y4  :=  yi 

TRUE 

SEQ 

x3  :=  xl 
y3  :=  yl 
x4  :=  x2 
y4  :=  y2 

— }  }  ] 

clip. line  (x3,  y3,  x4,  y4,  result,  window) 

IF 

(result  =  in. range) 

fast .draw. line  (window,  screen,  x3,  y3,  x4,  y4,  color) 
(result  =  part . inrange)  OR  (result  =  in. range) 
slow. draw. line  (window,  screen,  x3,  y3,  x4,  y4,  color) 
TRUE 
SKIP 


— )  )  ) 

--({{  draw. polyline 

PROC  draw. polyline  (  VAL  []  INT  window,  []  BYTE  screen, 

VAL  [ ]  [2 ] INT  points,  VAL  BYTE  color) 

—  calls  draw  line  to  draw  the  lines 
INT  x,  y  : 

SEQ 

x  :=  points [0] [0] 
y  :=  points [0] [1] 

SEQ  i  =  1  FOR  (SIZE  points)  -  1 
VAL  point  IS  points  [i]  : 

SEQ 

draw. line (  window,  screen,  x,  y,  point [0],  point [1],  color 
x  :=  point [0] 
y  : =  point [ 1 ] 

—  m 

--(({  draw . rectangle 

PROC  draw. rectangle  (  VAL  []  INT  window,  []  BYTE  screen, 

VAL  [2] [2] INT  p,  VAL  BYTE  color) 

--  calls  draw  line  to  draw  the  lines 
INT  x,  y  : 

SEQ 

draw.line(  window,  screen,  p[0][0],  p[0][l],  p[l][0],  p [ 0 ] [ 1 ] , 


cole 
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draw. line ( 

window, 

screen, 

p[l]  [0] , 

p[0] [1], 

p [13  [0]  ,  p  [  1 ]  [1]  , 

color 

draw. line ( 

window. 

screen. 

p[l]  [0], 

p[l]  [1], 

ptO]  [0]  ,  p[l]  [1]  , 

color 

draw . line ( 

window, 

screen. 

p[0] [0>, 

p[l] [1]/ 

p[0]  [0]  ,  p[0]  [0]  , 

color 
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6.2. 1.9.  Graphics  system  control  routines  ”g_system.occ" 

— { { {  SC  system 
— : :  :A  3  10 
— {{{  system 
— { { (  libraries 
♦INCLUDE  "crtc.inc" 

♦INCLUDE  "g_header . inc" 

— }  }  > 

— { { {  set. colour 

PROC  set. colour  (  CHAN  OF  CRTC  message, 

VAL  INT  channel,  pixel,  red,  green,  blue  ) 

—  set  up  a  colour  in  the  G170  colour  look  up  table 
SEQ 

message  !  crtc. color;  INT16  channel;  INTI 6  pixel; 

INT 16  red;  INT16  green;  INT16  blue 


— }  }  ) 

— { { {  set .timing 

PROC  set. timing (  CHAN  OF  CRTC  message, 

VAL  INT  width, height. 


pixel . clock. 


VAL  BOOL  interlace  ) 


line . frequency, 


frame . rate. 


SEQ 

message  !  crtc.init;  INTI  6  width;  INTI 6  height;  INT32 
line . frequency; 

INTI 6  frame. rate;  INT32  pixel. clock;  interlace 

—  m 

--{{{  set .B408 

PROC  set . B40S (  VAL  INT  DS,  IE,  EM,  OE,  R  ) 

--({{  system  constants 
VAL  bpw. shift  IS  2  : 

VAL  mint  IS  MOSTNEG  INT  : 

VAL  DisplayStart . address  IS  (♦00000000  ><  mint)  >>  bpw. shift  : 

VAL  InterlaceEnable . address  IS  (♦OOOCOOOO  ><  mint)  »  bpw. shift  : 

VAL  EventMode . address  IS  (♦00100000  ><  mint)  »  bpw. shift  : 

VAL  OutputEnable . address  IS  (♦00140000  ><  mint)  »  bpw. shift  : 

VAL  Ready . address  IS  {^00040000  ><  mint)  »  bpw. shift  : 

INT  DisplayStart,  InterlaceEnable,  EventMode,  OutputEnable,  Ready  : 


PLACE 

DisplayStart 

AT 

DisplayStart . address 

PLACE 

InterlaceEnable 

AT 

InterlaceEnable . address 

PLACE 

EventMode 

AT 

EventMode . address 

PLACE 

OutputEnable 

AT 

OutputEnable . address 

PLACE 

—  m 

SEQ 

Ready 

AT 

Ready . address 

DisplayStart  :=  DS 
InterlaceEnable  ;=  IE 
EventMode  :=  EM 
OutputEnable  :=  OE 
Ready  :=  R 

--in 

--{{(  ini t . G170 

PROC  init.G170  (CHAN  OF  CRTC  message,  VAL  INT  channel,  table) 
SEQ 
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message  !  crtc . initLUT;  INT16  channel;  INT16  table 
--})  ) 

— {({  clear. window 

PR OC  clear. window  (VAL  []  INT  window,  []  BYTE  screen) 


VAL  size.x 

IS 

window [ 

w .  size . x  ]  : 

VAL  size.y 

IS 

window [ 

w. size.y  ]  : 

VAL  pixels. line 

IS 

window [ 

w. pixels . line  ]  : 

VAL  b. color 

IS 

BYTE  window [  w. background. color 

INT  ptr  : 

SEQ 

SEQ  i  =  0  FOR 

size 

.  X 

screen[i]  := 

b. color 

ptr  :=  pixels. line 
SEQ  i  =  0  FOR  size.y  -  1 
SEQ 

[screen  FROM  ptr  FOR  size.x]  :=  [screen  FROM  0  FOR  size.x] 
ptr  :=  ptr  +  pixels. line 
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6.2.1.10.  Graphics  text  routines  "g_text.occ" 

— { { {  SC  text 
: :A  3  10 
— {{{  text 

#INCLUDE  ”g_header . inc" 

— { { {  FUNCTION  GetINT 

INT  FUNCTION  GetINT  (VAL  INT  pointer,  VAL  []  INT  table) 

INT  return  : 

VAL  []  BYTE  b. table  RETYPES  table  : 

VALOF 

[4] BYTE  return. b  RETYPES  return  : 


SEQ 


return .b [0] 

:=  b.tablefpointer] 

return .b [1] 

:=  b. table [pointer  + 

1] 

return.b[2] 

:=  b. table [pointer  + 

2] 

return .b [3] 

:=  b . table [pointer  + 

3] 

RESULT  return 

—  })  } 

— {{{  FUNCTION  Get INTI 6 

INT16  FUNCTION  Get INT 16  (VAL  INT  pointer,  VAL  []  INT  table) 
INTI 6  return  : 

VAL  []  BYTE  b. table  RETYPES  table  : 

VALOF 

[2] BYTE  return. b  RETYPES  return  : 

SEQ 

return. b[0]  :=  b . table [pointer] 
return. b[l]  :=  b . table [pointer  +  1] 

RESULT  return 


— ))) 

--{{{  FUNCTION  GetBYTE 

BYTE  FUNCTION  GetBYTE  (VAL  INT  pointer,  VAL  []  INT  table) 
BYTE  return  : 

VAL  []  BYTE  b. table  RETYPES  table  : 

VALOF 

SEQ 

return  :=  b . table [pointer] 

RESULT  return 


— )  1  } 

— { { {  get . font . spec 

PROC  get . font . spec  (  VAL  []  INT  font,  [fs.size]  INT  spec) 


SEQ 

spec[  fs.PixWidth 
spec [  fs.PixHeight 
spec [  fs.FirstChar 
spec [  fs.LastChar 
spec]  fs .BitsOf fset 


]  :=  INT  (GetINTI 6 

]  :=  INT  (GetINT16 

]  :=  INT  (GetBYTE 

]  :=  INT  (GetBYTE 

]  :=  GetINT 


(dfPixWidth .p,  font)) 
(dfPixHeight .p,  font)) 
(dfFirstChar .p,  font)) 
(dfLastChar .p,  font)) 
(dfBitsOf fset .p,  font) 


— }  }  ) 


—  U  ( 
PROC 

scroll 
scroll  ( 

VAL 

n 

INT  window,  [ ] BYTE  screen. 

_ 

scrolls 

VAL 

a 

INT  jump. size  ) 

screen  or  window  by  the  required  number 

( j  ump 
VAL 

.  size) 
size .  x 

IS 

window]  w.size.x  ]  : 

VAL 

size .  y 

IS 

window]  w.size.y  ]  : 

VAL 

pixels . 

line 

IS 

window]  w . pixels . line  ]  : 

VAL 

b . color 

IS 

BYTE  window]  w. background. color  ]  : 

INT 

pi,  p2 
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IF 

(jump. size  >  0)  AND  (jump. size  <  size.y) 

— (({  scroll  screen 
SEQ 

pi  :=  0 

p2  :=  pixels. line  *  jump. size 
SEQ  i  =  0  FOR  (size.y  -  jump. size) 

SEQ 

(screen  FROM  pi  FOR  size.x]  :=  [screen  FROM  p2  FOR  size.x] 
pi  :=  pi  +  pixels. line 
p2  :=  p2  +  pixels. line 
SEQ  i  =  0  FOR  size.x 

screen!  pi  +  i  ]  :=  b. color 
p2  :=  pi  +  pixels. line 
SEQ  i  =  0  FOR  (jump. size  -  1) 

SEQ 

[screen  FROM  p2  FOR  size.x]  :=  [screen  FROM  pi  FOR  size.x] 
p2  :=  p2  +  pixels. line 

— }}} 

jump. size  >  0 

— { ( {  clear  screen 
SEQ 

SEQ  i  =  0  FOR  size.x 
screent  i  ]  :=  b. color 
p2  :=  pixels. line 
SEQ  i  =  0  FOR  (jump. size  -  1) 

SEQ 

[screen  FROM  p2  FOR  size.x]  :=  [screen  FROM  0  FOR  size.x] 
p2  :=  p2  +  pixels. line 

— }  }  1 
TRUE 
SKIP 

-- }  )  } 

—  {{{  draw. char  v2 . 0 

PROC  draw. char  (  []  INT  window,  []  BYTE  screen, 

VAL  BYTE  char, 

VAL  (]  INT  font,  VAL  [fs.size]  INT  spec  ) 

— {{{  constants 
VAL  mask  IS  1  «  7  : 

pixels. line  IS  window[  w. pixels . line  ]  : 


size.x  IS  window]  w. size.x  ] 
size.y  IS  window[  w. size.y  ] 
cursor. x  IS  window(  w. cursor. x  ] 
cursor. y  IS  window[  w. cursor. y  ] 


VAL  []  BYTE  b . font  RETYPES  font  : 

—  m 

-- { ( {  variables 
INT  bit,  pixel  : 

INT  bitmask  : 

INT  char. width,  offset,  PixWidthBytes  : 

INT  char. spacing  : 

INT  character  : 

— }  }  } 

-- { ( (  line  feed 
PRCC  line. feed  (  ) 

SEQ 

cursor. y  :=  cursor.'/  *  spec!  fs.PixHeight  ] 
(cursor.y  spec:  fs.PixHeight  ])  <  size.y 
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SKIP 

TRUE 

INT  scroll. lines  : 

SEQ 

scroll. lines  :=  (specf  fs.PixHeight  ]  -  (size.y  -  cursor. y) ) 

1 

cursor. y  :=  (size.y  -  specf  fs.PixHeight  ])  -  1 
scroll  (  window,  screen,  scroll. lines  ) 

)  } 

SEQ 

character  :=  INT  char 
IF 

char  =  ' *n' 
line. feed  () 
char  =  ' *c' 

— {{{  carriage  return 
cursor. x  :=  0 


— } }  ) 

(character  >=  specf  fs.FirstChar  ])  AND  (character 
f s . LastChar] ) 

SEQ 

character  :=  character  -  spicf  fs.FirstChar  ] 

— { { (  set  font  data 
IF 

specf  fs.PixWidth  ]  <>  0 

Width 


<=  specf 


—  Fixed 


SEQ 

PixWidthBytes 
char .width 
offset 

f s . PixHeight  ] ) )  + 

char . spacing 

TRUE 

Variable  Width 

INT  char . width .p, 
SEQ 


char .width. p 
char . pointer . p 
char .width 
offset 

PixWidthBytes 
char . spacing 

— })} 

IF 


:=  (specf  fs.PixWidth  ]  +7)  »  3 
:=  specf  fs.PixWidth  ] 

:=  (character  *  (PixWidthBytes  *  specf 

specf  fs.BitsOffset  ] 

:=  char. width 


char. pointer .p  : 

=  CharTable.p  +  (character  «  2) 

=  char. width. p  +  2 

=  INT (GetINT16 (char .width. p,  font)) 

=  INT (GetINT16 (char .pointer .p,  font)) 
=  (char. width  +7)  »  3 
=  char. width  +  1 


— { { {  char  too  big 

(char. width  >  size.x)  OR  (specf  fs.PixHeight  ]  >  size.y) 
SKIP 
— }  ) } 

— {{{  room  to  draw  char 
BOOL  delaved.crlf  : 

TRUE 

SEQ 

delayed. crlf  : =  FALSE 
IF 

--{{(  room  to  draw  whole  char 
( (cursor. x  +  char . spacing)  <  size.x)  AND 

( (cursor. y  +  specf  fs.PixHeight  ])  <  size.y) 
SKIP 

—  m 

--({(  room  to  draw  but  at  end  of  line 
( (cursor. x  +  char . spacing)  =  size.x)  AND 

( (cursor, y  +  specf  fs.PixHeight  ])  <  size.y) 
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delayed. crlf  :=  TRUE 
— }}} 

--{{{  we  need  carriage  return  -  line  feed 
TRUE 
SEQ 

cursor. x  :=  0 
line. feed  0 

—  m 

pixel  :=  (cursor. y  TIMES  pixels. line)  +  cursor. x 
— {{(  plot  foreground  only 

VAL  f. color  IS  BYTE  window!  w . foreground . color  ]  : 

SEQ 

SEQ  i  =  0  FOR  spec[  fs.PixHeight  ] 

SEQ 

-- { { {  draw  row 
SEQ  j  =  0  FOR  PixWidthBytes 
SEQ 

bitmask  :=  mask 

VAL  this. byte  IS  INT  b.font[ 

o f f set+ ( ( spec [ f s . PixHeight ]  TIMES  j)  +  i)  ]  : 

SEQ  k  =  0  FOR  8 
SEQ 

bit  :=  this. byte  /\  bitmask 
IF 

— {{f  leave  background  as  it  is 
bit  =  0 
SKIP 
—  III 

— ({{  plot  foreground  bit 
TRUE 

screen [  pixel  ]  :=  f. color 

—  m 

pixel  : =  pixel  +  1 
bitmask  :=  bitmask  »  1 


pixels . line 


— })  } 

pixel  :=  (pixel  -  (PixWidthBytes«3)  )  + 


cursor. x  :=  cursor. x  +  char. spacing 
— )  }  } 

IF 

delayed. crlf 

— (((  we  need  carriage  return  -  line  feed 
SEQ 

cursor. x  :=  0 
line. feed  () 

—  )M 
TRUE 
SKIP 

—  II  I 

TRUE 

SKIP 


—  I  II 

— {((  write. string  v2 . 0 

PROC  write. string  (  []  INT  window,  []  BYTE  screen, 

VAL  []  BYTE  string,  VAL  []  INT  font  ) 


get . font . scec  (  font,  spec  ) 

SEQ  i  =  0  FOR  (SIZE  string) 

d ^ 3 w  cha **  {  window,  5 c r 0 0 n ,  s  0  r  i  n  cr  [  i ' ,  fonti,  300c  ) 
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—  m 

— {{(  string. width 

PROC  string. width  (  VAL  []  I NT  font,  VAL  []  BYTE  string,  INT  width  ) 

[fs.size]  INT  spec  : 

SEQ 

get . font . spec (  font,  spec  ) 
width  :=  0 

SEQ  i  =  0  FOR  SIZE  string 

— { { {  add  width  for  character [ i J 
INT  character  : 

SEQ 

character  :=  INT  string[i] 

IF 

(character  >=  spec {  fs.FirstChar  ])  AND  (character  <=  spec  [ 
fs.LastChar]  ) 

SEQ 

character  :=  character  -  spec [  fs.FirstChar  ] 

— {((  determine  width  from  font 
IF 

spec [  fs.PixWidth  ]  <>  0 

Fixed  Width 

width  :=  width  +  spec!  fs.PixWidth  ] 

TRUE 

Variable  Width 

INT  char .width. p,  char . pointer . p  : 

SEQ 

char. width. p  :=  CharTable.p  +  (character  <<  2) 
width  :=  (width  +  1)  +  (INT  (GetINT16  (char  .width. p, 

font) )  ) 

—  in 

TRUE 

SKIP 

—  m 


— } } ) 
—  M  ) 
— }  )  i 
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6.2.1.11.  GIF  routines  (save  captured  display  images)  "gif.occ" 

♦INCLUDE  "hostio.inc" 

♦USE  "hostio . lib" 

PROTOCOL  message  IS  INT;  INT  : 

PROC  Encode  (CHAN  OF  SP  fs,  ts,  VAL  INT32  GIFFile, 

VAL  INT  MaxColumn,  MaxRow,  BitsPerPixel, 

VAL  []INT  Palette,  VAL  [][]INT  Pixels) 

— { ( {  GIF  Encoder 

PROC  Encoder  (CHAN  OF  message  out,  VAL  [][]INT  pixels, 

VAL  INT  bitsPerPixel) 

VAL  max . table . size  IS  (1  <<  13)  : 

VAL  pixel. rows  IS  (SIZE  pixels)  : 

--{ { (  PROC  Clear 

PROC  Clear  (VAL  INT  bits .per .pixel,  INT  CodeSize,  NextValidCode, 
MaxCode,  [max . table . size] INT  Child,  Sibling) 

SEQ 

CodeSize  :=  bits .per .pixel  +  1 
NextValidCode  :=(1  <<  bits .per .pixel)  +  2 
MaxCode  :=  1  <<  (bits .per .pixel  +  1) 

SEQ  1=0  FOR  max . table . size 
SEQ 

Child  [I]  :=  0 

Sibling  [I]  :=  0 

—  1  i  1 

--(({  variable  declarations 

[max. table. size]  INT  child,  sibling,  shade  : 

INT  codeSize,  clearCode,  endCode, 

minCode,  maxCode,  nextValidCode, 

color,  son,  parent,  maxColor,  pixCol,  pixRow,  pixelColumnsMl  : 

—  m 

SEQ 

maxColor  :=  (1  <<  bitsPerPixel)  -  1 
color  :=  0 
—  {  ( (  Initialize 
SEQ  i  =  0  FOR  max . table . size 
SEQ 

child  [i]  :=  0 
sibling  [i]  :=  0 

codeSize  :=  bitsPerPixel  +  1 
clearCode  : =  1  <<  bitsPerPixel 
endCode  :=  clearCode  +  1 
nextValidCode  :=  endCode  +  1 
maxCode  :=  clearCode  <<  1 
— }  !  } 

out  !  clearCode;  codeSize 
IF 

(0  <  pixel. rows) 

SEQ 

pixelColumnsMl  :=  SIZE  pixels  [0] 

i.  £ 

(0  <  pixelColumnsMl) 

seq' 

pixelColumnsMl  ;=  pixelColumnsMl  -  1 
(1  <  pixelCoi  um.n  o  M 1 ) 
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pixRow  :=  0 
pixCol  :=  1 

TRUE 

SEQ 

pixRow  :=  1 
pixCol  :=  0 

TRUE 

color  :=  maxColor  +  2 

— }  }  1 
TRUE 

color  :=  maxColor  +  2 
parent  :=  color 
WHILE  (color  <=  maxColor) 

— ( { {  Compress 
SEQ 
IF 

(pixRow  <  pixel. rows) 

—  {  (  ( 

SEQ 

color  :=  pixels  [pixRow] [pixCol] 

IF 

(pixCol  <  pixelColumnsMl) 
pixCol  :=  pixCol  +  1 
TRUE 
SEQ 

pixRow  :=  pixRow  +  1 
pixCol  :=  0 

— )  }  } 

TRUE 

color  :=  maxColor  +  2 
son  :=  child  [parent] 

IF 

son  <=  0 

— (({  Parent  has  no  son 
SEQ 

child  [parent]  :=  nextValidCode 
shade  [nextValidCode]  :=  color 
out  !  parent;  codeSize 
parent  :=  color 

nextValidCode  :=  nextVaJ idCode  +  1 


TRUE 

— { { {  Otherwise 
SEQ 
IF 

shade  [son]  =  color 

parent  :=  son  —  make  new  parent 
TRUE 

— { ( {  son  not  right  color 
BOOL  looping  : 

INT  brother  : 

SEQ 

brother  :=  son 
looping  :=  TRUE 
WHILE  looping 
SEQ 
IF 

sibling  [brother]  >  0 

--(((  Brother  has  brother 
SEQ 

brother  :=  sibling  [brother] 
IF 

shade  [brother]  =  color 
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looping  :=  FALSE 
parent  :=  brother 

TRUE 

SKIP 

— }  }  1 
TRUE 

— {((  No  brother,  so  create  one 
SEQ 

looping  :=  FALSE 

sibling  [brother]  :=  nextValidCode 
shade  [nextValidCode]  :=  color 
out  !  parent;  codeSize 
parent  :=  color 

nextValidCode  :=  nextValidCode  +  1 

—  n } 

— }  > } 

— }  >  1 

— ({{  Change  code  size  if  required 
IF 

nextValidCode  >  maxCode 
IF 

codeSize  <  12 
SEQ 

codeSize  :=  codeSize  +  1 
maxCode  :=  maxCode  <<  1 

TRUE 

SEQ 

out  !  clearCode;  codeSize 

Clear  (bitsPerPixel,  codeSize,  nextValidCode, 
maxCode,  child,  sibling) 

TRUE 

SKIP 

—  m 
—  m 

out  !  endCode;  codeSize 


-Ml 

--{{{  so . fwrite . INTI  6 

--Writes  2-byte  integer,  L3B  first 

PROC  so . fwrite . INT16  (CHAN  OF  SP  fs,  ts,  VAL  INT32  StreamID, 

VAL  INTI 6  Value,  BYTE  Result) 

VAL  msb  IS  #FF00  ( INT16)  : 

VAL  Isb  IS  400FF  ( INTI 6)  : 

BYTE  Result2  ; 

VAL  [2] BYTE  array  RETYPES  Value  : 

SEQ 

--so . fwrite . char  (fs,  ts,  StreamID,  BYTE  (Value  /\  lsb),  Result) 
--so .  fwrite .  char  (fs,  ts,  StreamID,  BYTE  ((Value  /\  msb)  >>  8) 
Results ) 

--Result  :=  BYTE  (  ( INT  Result)  \/  ( INT  Result2)) 

so . fwrite . string  (fs,  ts,  StreamID,  array,  Result) 


—  ;  ;  ; 

-- ( ( '  WriteBlcck 

PROC  WriteBlock  (CHAN  OF  SP  fs,  ts,  VAL  INT32  StreamID, 


f 
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so . fwrite . string  (fs,  ts,  StreamID, 

[buffer  FROM  0  FOR  (Length+1)],  Result) 

Length  :=  0 
—  I  )  1 

— { { {  BlockByte 

PROC  BlockByte  (CHAN  OF  SP  fs,  ts,  VAL  INT32  StreamID, 

[255]  BYTE  Block,  I NT  Index,  VAL  BYTE  Data, 

Result) 


SEQ 

Block  [Index]  :=  Data 
Index  :=  Index  +  1 
IF 

Index  =  255 

WriteBlock  (fs,  ts,  StreamID,  Block,  Index,  Result) 
TRUE 
SKIP 


—  )  }  ) 

--(((  Output  process  from  Encoder 

PROC  Output  (CHAN  OF  message  FromEncoder,  VAL  INT32  GIFFile, 
VAL  INT  MaxColumn,  MaxRow,  BitsPerPixel, 

VAL  []INT  Palette  ) 

--  (  (  (  Constants 


VAL 

byte .mask 

IS 

#FF  ( INT32 )  : 

VAL 

size .of . int 

IS 

4  : 

VAL 

colors 

IS 

(1  <<  BitsPerPixel) 

VAL 

max .byte 

IS 

40  : 

VAL 

depth 

IS 

2  : 

VAL 

max. gray 

IS 

(1  <<  BitsPerPixel)  : 

VAL 

ppw 

IS 

(  (size. of .int  *  8)  / 

VAL 

wpsl 

IS 

(MaxColumn  /  ppw)  : 

VAL 

red 

IS 

0  : 

VAL 

green 

IS 

1  : 

VAL 

blue 

IS 

2  : 

BitsPerPixel) 


VAL  gif .signature  IS  "GIF87a" 
VAL  global . color .map  IS  #80 
VAL  color. res  IS 

VAL  bits  IS 

VAL  screen . height  IS 

VAL  screen. left  IS 

VAL  screen. top  IS 

VAL  screen. width  IS 


((depth  -  1)  «  4) 
(BitsPerPixel  +  1) 
(INT 16  MaxRow)  : 

0  ( INTI  6)  : 

0  ( INTI  6)  : 

(INT16  MaxColumn) 


VAL  screen .descriptor  IS 

(BYTE  ( (global .color .map  \/  color. re 

(BitsPerPixel  - 


s)  \/ 
1)  )  ) 


VAL  background  IS  0  (BYTE)  : 

VAL  endCode  IS  ((1  <<  BitsPerPixel)  +  1)  : 


—  >  >  > 


BYTE  Result  : 

INT  CodeSize,  OutByte,  Shift,  Value  : 

I NT 3 2  Out  : 

[3]  BYTE  Co lot Value  : 

[255]  BYTE  OufBlock  : 

gt’O 

OutByte  :=  0 

--([(  GIF  Signature 

so . fwrite . string  (fs,  ts,  GIFFile,  gif . signature.  Result) 
— ; f j  Screen  Descriptor 


BYTE 
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so . fwrite . INT16  (f s,  ts,  GIFFile,  screen . width,  Result) 
so . fwrite . INT16  (fs,  ts,  GIFFile,  screen .height,  Result) 
so . fwrite . char  (fs,  ts,  GIFFile,  screen .descriptor.  Result) 
so . fwrite . char  (fs,  ts,  GIFFile,  background.  Result) 
so . fwrite .char  (fs,  ts,  GIFFile,  0  (BYTE),  Result) 

— )  } ) 

— ({(  Global  Color  Map 

VAL  P3letteColors  IS  (SIZE  Palette)  : 

SEQ  1=0  FOR  colors 
SEQ 
IF 

(I  <  PaletteColors) 

SEQ 

ColorValue  [blue]  := 

(BYTE  ((INT32  Palette  [I])  /\  byte. mask)) 
ColorValue  [green]  := 

(BYTE  ( ( ( INT32  Palette  [I])  »  8)  A  byte. mask)) 
ColorValue  [red]  := 

(BYTE  ( ( ( INT32  Palette  [I])  »  16)  A  byte. mask)) 

TRUE 

SEQ 

ColorValue  [blue]  :=  0  (BYTE) 

ColorValue  [green]  :=  0  (BYTE) 

ColorValue  [red]  :=  0  (BYTE) 

SEQ  J  =  0  FOR  3 

so . fwrite . char  (fs,  ts,  GIFFile,  ColorValue  [J] ,  Result) 


—  m 

— ({(  Image  Descriptor 

so . fwrite . char  (fs,  ts,  GIFFile,  Result) 

so . fwrite . INT16  (fs,  ts,  GIFFile,  screen. left,  Result) 
so . fwrite . INT16  (fs,  ts,  GIFFile,  screen. top,  Result) 
so . fwrite . INT16  (fs,  ts,  GIFFile,  screen . width.  Result) 
so . fwrite . INT16  (fs,  ts,  GIFFile,  screen .height.  Result) 
so . fwrite . char  (fs,  ts,  GIFFile,  0  (BYTE),  Result) 

— )  }  ) 

— ( { {  Raster  Data 

— First  byte  is  bits  per  image  pixel 

so . fwrite . char  (fs,  ts,  GIFFile,  BYTE  BitsPerPixel,  Result) 

— ({{  Get  first  code 
FromEncoder  ?  Value;  CodeSize 
Shift  :=  CodeSize 
Out  :=  ( INT32  Value) 

1  I 

--{({  Accept  and  package  codes  until  end  of  image 
WHILE  (Value  <>  endCode) 

SEQ 

--({(  Write  any  finished  bytes 
WHILE  (Shift  >  8) 

SEQ 

81ock3yte  (fs,  ts,  GIFFile,  OutBlock,  0ut3yte, 

BYTE  (Out  A  byte. mask),  Result) 

Out  :=  Out  >>  8 
Shift  :=  Shift  -  8 

—  m 

--(if  Add  next  code 

FromEncoder  ?  Value  ;  CodeSize 

Out  :=  Out  \ /  ( ( INT32  Value)  «  Shift) 

Shift  :=  Sh  iff  -  I  tceS  ice 

—  ;  i  i 

-  -  i  ;  \ 

— ( { i  Output  remaining  nodes 
WHILE  'Shift  •  ')) 
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BlockByte  (fs,  ts,  GIFFile,  OutBlock,  OutByte, 

BYTE  (Out  /\  byte. mask).  Result) 

Out  :=  Out  »  8 
Shift  :=  Shift  -  8 
IF 

OutByte  <>  0 

WriteBlock  (fs,  ts,  GIFFile,  OutBlock,  OutByte,  Result) 
TRUE 
SKIP 

— Raster  data  terminates  with  0-byte  block 
WriteBlock  (fs,  ts,  GIFFile,  OutBlock,  OutByte,  Result) 

— } }  > 

— }  }  ) 

— {{{  GIF  Terminator 

so . f write . char  (fs,  ts,  GIFFile,  Result) 

—  m 

— } } ) 

CHAN  OF  message  EncoderToOutput  : 

PAR 

Encoder  (Pixels,  EncoderToOutput,  BitsPerPixel) 

Output  (EncoderToOutput,  GIFFile, 

MaxColumn,  MaxRow,  BitsPerPixel,  Palette) 
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6.2.1.12.  Alternative  GIF  routines  "gif02.occ" 

♦INCLUDE  "hostio.inc" 

#USE  "hostio . lib" 


PROC  Encode  (CHAN  OF  SP  fs,  ts, 
VAL  INT  MaxColumn, 
VAL  [ ] INT  Palette, 
— { { {  GIF  Encoder 
PROC  Encoder  (CHAN  OF  INT 
bitsPerPixel) 


VAL  INT32  GIFFile, 
MaxRow,  BitsPerPixel, 
VAL  [] [] INT  Pixels) 

in,  out,  CHAN  OF  INT 


size. 


VAL  INT 


— { { {  putCode 

PROC  putCode  (CHAN  OF  INT  out,  VAL  INT  value) 
out  !  value 


— }  )  } 


VAL  max . table . size  IS  (1  <<  13)  : 

— {{(  Clear 

PROC  Clear  (VAL  INT  bits .per .pixel,  INT  CodeSize,  NextValidCode, 
MaxCode,  [max . table . size]  INT  Child,  Sibling) 

SEQ 

CodeSize  :=  bits .per .pixel  +  1 
NextValidCode  :=(1  <<  bits .per .pixel)  +  2 
MaxCode  :=  1  <<  (bits .per .pixel  +  1) 

SEQ  1=0  FOR  max. table. size 
SEQ 

Child  [I]  :=  0 
Sibling  [I]  :=  0 

)  } 

(max. table. size]  INT  child,  sibling,  shade  : 

INT  codeSize,  clearCode,  endCode, 

minCode,  maxCode,  nextValidCode, 
color,  son,  parent,  maxColor  : 

SEQ 

maxColor  :=  (1  <<  bitsPerPixel)  -  1 
color  :=  0 

— ( { (  Initialize 
SEQ 

SEQ  i  =  0  FOR  max . table . size 
SEQ 

child  [i]  :=  0 

sibling  [i]  :=  0 

codeSize  :=  bitsPerPixel  +■  1 
clearCode  :=  1  <<  bitsPerPixel 
endCode  :=  clearCode  +  1 
nextValidCode  :=  endCode  +  1 
maxCode  :=  clearCode  <<  1 


putCode  (out,  clearCode) 
sizg  !  codeSize 
in  ?  color 
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— { ( {  Compress 
SEQ 

in  ?  color 

son  :=*  child  [parent] 

IF 

son  <=  0 

--{{{  Parent  has  no  son 
SEQ 

child  [parent]  :=  nextValidCode 
shade  [nextValidCode]  :=  color 
putCode  (out,  parent) 
size  !  codeSize 
parent  :=  color 

nextValidCode  :=  nextValidCode  +  1 
— }  }  } 

TRUE 

— { { {  Otherwise 
SEQ 
IF 

shade  [son]  =  color 

parent  :=  son  —  make  new  parent 
TRUE 

— {{{  son  not  right  c  lor 
BOOL  looping  : 

INT  brother  : 

SEQ 

brother  :=  son 
looping  :=  TRUE 
WHILE  looping 
SEQ 
IF 

sibling  [brother]  >  0 

— {{(  Brother  has  brother 
SEQ 

brother  :=  sibling  [brother] 

IF 

shade  [brother]  =  color 
SEQ 

looping  :  =  FALSE 
parent  :=  brother 

TRUE 

SKIP 

--)  }  ) 

TRUE 

— {({  No  brother,  so  create  one 
SEQ 

looping  :=  FALSE 

sibling  [brother]  :=  nextValidCode 
shade  [nextValidCode]  :=  color 
putCode  (out,  parent) 
size  !  codeSize 
parent  :=  color 

nextValidCode  :=  nextValidCode  +  1 
—  }}  } 

--}}} 

— !  )  1 

--({{  Change  code  size  if  required 
IF 

nextValidCode  >  maxCcde 
IF 

codeSize  <  12 
SEQ 

codeSize  :=  codeSize  +  1 
maxCcde  :=  maxCcde  <<  i 
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TRUE 

SEQ 

putCode  (out,  clearCode) 
size  !  codeSize 

Clear  (bitsPerPixel,  codeSize,  nextValidCode, 
maxCode,  child,  sibling) 

TRUE 

SKIP 


— )  f ) 

—  1  }  } 

putCode  (out,  endCode) 
size  !  codeSize 


— }}} 

— {{{  so . fwrite . INT16 
— Writes  2-byte  integer.  LSB  first 

PROC  so. fwrite. INT16  (CHAN  OF  SP  fs,  ts,  VAL  INT32  StreamID, 

VAL  INTI 6  Value,  BYTE  Result) 

VAL  msb  IS  #FFOO  (INT16)  : 

VAL  lsb  IS  #00FF  ( INTI 6)  : 

BYTE  Result2  : 

SEQ 

so . fwrite . char  (fs,  ts,  StreamID,  BYTE  (Value  /\  lsb),  Result) 
so .  fwrite .  char  (fs,  ts,  StreamID,  BYTE  ((Value  /\  msb)  »  8) 

Result2 ) 

Result  :=  BYTE  <(INT  Result)  \/  (INT  Result2) ) 

—  ))  ) 

— ( ( {  WriteBlock 

PROC  WriteBlock  (CHAN  OF  SP  fs,  ts,  VAL  INT32  StreamID, 

[255]  BYTE  Block,  INT  Length,  BYTE  Result) 

BYTE  Result2  : 

SEQ 

so . fwrite . char  (fs,  ts,  StreamID,  BYTE  Length,  Result) 

SEQ  1=0  FOR  Length 
SEQ 

so . fwrite . char  (fs,  ts,  StreamID,  Block  [I],  ResuLt2) 

Result  :=  BYTE  ((INT  Result)  \/  (INT  Result2) ) 

Length  :=  0 


—  m 


-- { { (  Block3yte 

PROC  BlockByte  (CHAN  OF  SP  fs,  ts,  VAL  INT32  StreamID, 

[255]  BYTE  Block,  INT  Index,  VAL  BYTE  Data,  BYT 

Result ) 

SEQ 

Block  [Index]  :=  Data 
Index  :=  Index  +  1 
IF 

Index  =255 

WriteBlock  (fs,  ts,  StreamID,  Block,  Index,  Result) 

TRUE 
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— {{{  Input 

— Input  process  for  Encoder 

PROC  Input  (CHAN  OF  INT  ToEncoder,  VAL  [] [] INT  Pixels,  VAL  INT  End) 
SEQ 

SEQ  1=0  FOR  (SIZE  Pixels) 

SEQ  J  =  0  FOR  (SIZE  Pixels  [I]) 

ToEncoder  !  Pixels  [I] [J] 

ToEncoder  !  End 

--}}} 

— { ( {  Output 

— Output  process  from  Encoder 

PROC  Output  (CHAN  OF  INT  FromEncoder,  Size,  VAL  INT32  GIFFile, 

VAL  INT  MaxColumn,  MaxRow,  BitsPerPixel, 

VAL  []INT  Palette  ) 

— { { {  Constants 

VAL  byte. mask  IS  #FF  (INT32)  : 

VAL  size.of.int  IS  4  : 

VAL  colors  IS  (1  «  BitsPerPixel)  : 

VAL  max. byte  IS  40  : 

VAL  depth  IS  2  : 

VAL  max. gray  IS  (1  «  BitsPerPixel)  : 

VAL  ppw  IS  ((size.of.int  *  8)  /  BitsPerPixel)  : 

VAL  wpsl  IS  (MaxColumn  /  ppw)  : 

VAL  red  IS  0  : 

VAL  green  IS  1  : 

VAL  blue  IS  2  : 

VAL  gif . signature  IS  "GIF87a"  : 

VAL  global . color .map  IS  #80  : 

VAL  color. res  IS  ((depth  -  1)  «  4)  : 

VAL  bits  IS  (BitsPerPixel  +  1)  : 

VAL  screen. height  IS  (INT16  MaxRow)  : 

VAL  screen. left  IS  0  (INT16)  : 

VAL  screen. top  IS  0  (INTI 6)  : 

VAL  screen. width  IS  (INT16  MaxColumn)  : 

VAL  screen .descriptor  IS 

(BYTE  ( (global. color. map  \/  color. res)  \/ 

(BitsPerPixel  -1)))  : 

VAL  background  IS  0  (BYTE)  : 

VAL  endCode  IS  ((1  <<  BitsPerPixel)  +  1)  : 

—  m 

BYTE  Result  : 

INT  CodeSize,  OutByte,  Shift,  Value  : 

INT32  Out  : 

[3]  BYTE  ColorValue  : 

[255]  BYTE  OutBlock  : 

SEQ 

OutByte  :=  0 

--({(  GIF  Signature 

so . fwrite . string  (fs,  ts,  GIFFile,  gif . signature.  Result) 

--)}} 

— {{(  Screen  Descriptor 

so . fwrite . INT16  (fs,  ts,  GIFFile,  screen . width,  Result) 
so . fwrite . INTI 6  (fs,  ts,  GIFFile,  screen. height.  Result) 
so . fwrite . char  (fs,  ts,  GIFFile,  screen . descriptor ,  Result) 
so . fwrite . char  (fs,  ts,  GIFFile,  background.  Result) 
so . fwrite . char  (fs,  ts,  GIFFile,  0  (BYTE),  Result) 

— }  M 
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— {{{  Global  Color  Map 

VAL  PaletteColors  IS  (SIZE  Palette)  : 

SEQ  1=0  FOR  colors 
SEQ 
IF 

(I  <  PaletteColors) 

SEQ 

ColorValue  [blue]  := 

(BYTE  ( ( INT32  Palette  [I])  /\  byte. mask)) 
ColorValue  [green]  := 

(BYTE  (  { ( INT32  Palette  [I])  »  8)  /\  byte. mask)) 
ColorValue  [red]  := 

(BYTE  ( ( (INT32  Palette  [I])  »  16)  /\  byte. mask)) 

TRUE 

SEQ 

ColorValue  [blue]  :=  0  (BYTE) 

ColorValue  [green]  :=  0  (BYTE) 

ColorValue  [red]  :=  0  (BYTE) 

SEQ  J  =  0  FOR  3 

so . fwrite . char  (fs,  ts,  GIFFile,  ColorValue  [J] ,  Result) 


— )  )  } 

--(({  Image  Descriptor 

so . fwrite . char  (fs,  ts,  GIFFile,  Result) 

so . fwrite . INT16  (fs,  ts,  GIFFile,  screen. left.  Result) 
so . fwrite . INT16  (fs,  ts,  GIFFile,  screen. top,  Result) 
so . fwrite . INT16  (fs,  ts,  GIFFile,  screen . width.  Result) 
so . fwrite . INT16  (fs,  ts,  GIFFile,  screen . height ,  Result) 
so . fwrite . char  (fs,  ts,  GIFFile,  0  (BYTE),  Result) 

— }  )  ) 

— { { {  Raster  Data 

— First  byte  is  bits  per  image  pixel 

so . fwrite . char  (fs,  ts,  GIFFile,  BYTE  BitsPerPixel,  Result) 

— {{{  Get  first  code 
FromEncoder  ?  Value 
Size  ?  CodeSize 
Shift  :=  CodeSize 
Out  :=  ( INT32  Value; 

— )  } } 

— (((  Accept  and  package  codes  until  end  of  image 
WHILE  (Value  <>  endCoae) 

SEQ 

— {{{  Write  any  finished  bytes 
WHILE  (Shift  >  8) 

SEQ 

BlockByte  (fs,  ts,  GIFFile,  OutBlock,  OutByte, 

BYTE  (Out  /\  byte. mask).  Result) 

Out  :=  Out  >>  3 
Shift  :=  Shift  -  8 
—  }}} 

— {((  Add  next  code 
FromEncoder  ?  Value 
Size  ?  CodeSize 

Out  :=  Cut  \/  (CNT32  Value)  «  Shift) 

Shift  :=  Shift  t-  CodeSize 
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WHILE  (Shift  >  0) 

SEQ 

BlockByte  (fs,  ts,  GIFFile,  OutBlock,  OutByte, 

BYTE  (Out  /\  byte. mask).  Result) 

Out  :=  Out  »  8 
Shift  :=  Shift  -  8 
IF 

OutByte  <>  0 

WriteBlock  (fs,  ts,  GIFFile,  OutBlock,  OutByte,  Result) 
TRUE 
SKIP 

— Raster  data  terminates  with  0-byte  block 
WriteBlock  (fs,  ts,  GIFFile,  OutBlock,  OutByte,  Result) 

—  m 

— )  )  ) 

— ({{  GIF  Terminator 

so . fwrite .char  (fs,  ts,  GIFFile,  Result) 

— }  )  } 

--})) 

VAL  end  IS  ((1  «  BitsPerPixel)  +  1)  : 

CHAN  OF  INT  ToEncoder,  FromEncoder  : 

CHAN  OF  INT  Size  : 


PAP. 

Input  (ToEncoder,  Pixels,  end) 

Encoder  (ToEncoder,  FromEncoder,  Size,  BitsPerPixel) 
Output  (FromEncoder,  Size,  GIFFile, 

MaxColumn,  MaxRow,  BitsPerPixel,  Palette) 
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6.2.1.13.  PROCGTSEI 
PROC  GTSEI  (  CHAN 
toTarget, 


OF  ANY  f romController,  toController, 
toCrossbarO,  toCrossbarl  ) 


"gtsei.occ" 

fromTarget, 


♦INCLUDE  "s_header . inc" 
— { { {  Table 


[ 

0, 

4 

] 

[ 

2, 

5 

] 

( 

1, 

6 

] 

[ 

7, 

3 

] 

( 

29, 

31 

] 

[ 

30, 

28 

] 

[ 

24, 

25 

T 

i 

[ 

27, 

26 

1 

J 

[ 

17, 

19 

] 

[ 

23, 

22 

] 

[ 

21, 

16 

] 

[ 

20, 

18 

] 

[ 

10, 

8 

] 

[ 

13, 

9 

] 

[ 

14, 

12 

1 

[ 

11, 

15 

] 

—  n  i 

-- { { {  variables 
BYTE  synch  : 

BOOL  target. wait  : 
[16] [3]  BYTE  Seto,  5 
INT  Current . Selectic 
INT  Selection  : 

PLACE  Selection  AT 


♦  800  : 


BYTE  length  : 

[max. message]  INT32  message  : 
command  IS  message [0]  : 

params  IS  [message  FROM  1  FOR  (max. message-1) ]  : 

— )  1  1 

— {((  DetermineSetting 

PROC  DetermineSetting  (  [16] [3]  BYTE  SetO,  Setl,  VAL  INT  offset  ) 
SEQ 

SEQ  i  =  0  FOR  16 

VAL  connection  IS  BYTE  Tablet  (  (i  4-  offset)  /\  15)  ][  0  ] 

SEQ 

Set0[i][l]  :=  connection 
Setl[i][2]  :=  connection 


-Ml 
SEQ  i 
SEQ 


initialize 
=  0  FOR  16 


SetO  [i 

]  [0] 

=  0 

(BYTE) 

SetO  [i 

]  ;i] 

=  BYTE 

Table [ i] 

[0] 

SetO  '  i 

-  -  n  i 
j  L  -  J 

=  BY 

m 

X 

73ble [ i ] 

[  1  ] 

Set  1  [  i 

1  '  CN  I 
l  V  j 

=  0 

(B: 

"IE) 

Set  1  [  i 

r  i  i 

—  QV 

TB 

^  -5  V-  7  ^  r  4  7 

r  i  i 

l  -*■  i 

ceil  i 

'  l  «-  J 

-  B  x 

i  -J  i 

53303 r . 
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target. wait  :=  FALSE 
WHILE  TRUE 
SEQ 

f romController  ?  length :: message 
CASE  INT  command 

--(({  c . set . crossbar 
c . set .crossbar 

DetermineSetting (  SetO,  Setl,  INT  params[0]  ) 
--}}> 

--{({  c. set. target 
c . set .target 
SEQ 
IF 

target . wait 

fromTarget  ?  synch 
TRUE 
SKIP 

PAR 

toCrossbarO  !  4 (BYTE) ;  SetO;  3 (BYTE) 
toCrossba  rl  !  4 (BYTE) ;  Setl;  3 (BYTE) 
toTarget  !  length: rmessage 
target. wait  :=  TRUE 
--)}} 

-- ( { {  c . target . row 
c . target . row 
SEQ 
IF 

target . wait 

fromTarget  ?  synch 
TRUE 
SKIP 

target. wait  :=  FALSE 
toTarget  !  length : :message 

—  m 
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6.2.1.14.  PROC  Guidance  "guidance. occ" 

PROC  Guidance  (  CHAN  OF  ANY  fromSP,  toSP, 

fromXBar,  toXBar  ) 

— { { {  libraries 
#INCLUDE  "s_header . inc" 

—  i  !  1 

— { ( {  constants 
VAL  min. time  IS  0.99  (REAL32 )  : 

--})  1 

— {{{  PROC  test. setup 

PROC  test. setup  (CHAN  OF  ANY  from. master,  to. master) 

— { ( {  constants 
VAL  min. shift. x  IS  -8  : 

VAL  max. shift. x  IS  8  : 

VAL  min. shift. y  IS  -8  : 

VAL  max.shift.y  IS  8  : 

VAL  [ ] REAL32  begin. divert  IS  [20000.0  (REAL32) ,  90000.0  ( REAL3 
VAL  [ ] REAL32  end. divert  IS  [30000.0  (REAL32 ) ,  100000.0  (REAL 

VAL  x. center  IS  256  : 

VAL  y. center  IS  256  : 

— !  }  } 

INT  frame,  command  : 

WHILE  TRUE 
SEQ 

frame  :=  0 

from. master  ?  command 
WHILE  command  =  c . guidance . run 
--III  run  simulation 
REAL32  range,  time: 

INTI 6  centroid. x,  centroid. y  : 

[3JREAL32  seeker. xyz,  target. xyz  : 

SEQ 

from. master  ?  range  ;  time  ; 

centroid. x  ;  centroid. y  ; 
seeker. xyz  ;  target. xyz 
—  frame  :=  frame  +  1 
IF 

IF  i  =  0  FOR  SIZE (begin .divert) 

(range  >=  begin . divert [ il )  AND  (range  <=  end. divert [i] ) 
-- ( ( {  divert 
INT  Shift. x,  shift.y  : 

SEQ 

shift. x  :=  x. center  -  ((INT  centroid. x)  <<  2) 
shift.y  :=  y. center  -  ((INT  centroid. y)  <<  2) 

IF 

shift. x  >  max. shift. x 

to. master  !  (INT16  max. shift. x) 
shi ft. x  <  min. shift. x 

to. master  !  (INT16  min. shirt. x) 

TRUE 

to. master  !  (INT16  shift. x) 
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— )  1  ) 

TRUE 

to. master  !  0  (INT16);  0  (INT16) 
from. master  ?  command 

—  1  }  1 

— }} } 

CHAN  Or  ANY  from. master,  to. master  : 

PAR 

test. setup  ( from. master,  to. master) 

—  {  {  l 

BYTE  length  : 

[255] INT  command. line  : 

INT  guidance .mode  : 

REAL32  last. time  : 

INT16  shift. x,  shift. y  : 

SEQ 

guidance .mode  :=  gm.none 
WHILE  TRUE 
SEQ 

fromSP  ?  length : :command. line 
CASE  command. line [0] 

— { { {  set  mode 
c . guidance . set .mode 

guidance .mode  :=  command . line [ 1] 

—  m 

-- ( ( {  initialize 
c . guidance . initialize 
SEQ 

last. time  :=  -1.0  (REAL32 ) 

Shift. x  :=  0  (INT16) 

Shift. y  :=  0  (INT16) 

CASE  guidance .mode 
gm. internal 

from. master  !  c . guidance . init ialize 
gm. external 
PAR 

toXBar  !  c . guidance . initialize 
from. master  !  c .guidance . initialize 

ELSE 

SKIP 

n 

— { ( (  run 
c . guidance . run 

FPA  IS  command. line [1]  : 

range  IS  command . line [2 ]  : 

time  IS  command . line [3 ]  : 

centroid. x  IS  command . 1 ine [ 4 ]  : 

centroid. y  IS  command . line [ 5 ]  : 

seeker,  int  IS  [command . line  FROM  6  FOR  3]  : 

target. int  IS  [command . line  FROM  9  FOR  3]  : 

[3]REAL32  seeker. xyz  RETYPES  seeker. int  : 

[3JREAL32  target. xyz  RETYPES  target. int  : 

REAL32  r.time  RETYPES  time  : 

SEQ 

--{((  convert  positions  to  kilometers 
SEQ 

SEQ  i  =  0  FOP.  3 
SEQ 

seeker . xyz [ i ]  :=  seeker .xyz [i]  /  1000.0  (FEAL3 
target . xyz [ i]  :=  target . xyz [ i]  /  1000.0  ( REAL 3 

1  :< 

CASE  guidance .mode 
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INT16  centroid. y 


shift ,y) 


INT16  centroid. y 


shift . y) 


INTI 6  centroid. y 


shift . y) 


gm. internal 

— {{{  from  test  proc 
SEQ 

from. master  !  c .guidance . run; 

range;  time;  INTI 6  centroid.x 

seeker. xyz  ;  target. xyz 
to. master  ?  shift. x;  shift. y 
toSP  !  cc . shift . image;  -(INT  shift. x);  -(INT 

— }  }  i 

gm. external 

— { { {  from  PFP 
IF 

ABS  (r.time  -  last. time)  >=  min. time 
SEQ 

last. time  :=  r.time 
toXBar  !  c . guidance . run  ; 

range;  time  ;  INT 16  centroid.x  ; 

seeker. xyz  ;  target. xyz 
fromXBar  ?  shift. x;  shift. y 

toSP  !  cc . shift . image;  -(INT  shift. x);  -(INT 

TRUE 

— { ( (  from  test  proc 
SEQ 

from. master  !  c . guidance . run; 

range;  time;  INT 16  centroid.x  ; 

seeker. xyz  ;  target. xyz 
to. master  ?  shift. x;  shift. y 

toSP  !  cc . shift . image;  -(INT  shift. x);  -(INT 

— }  M 
— )  }  1 
ELSE 
SKIP 


—  m 


—  m 
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6.2.1.15.  PROC  HostSeeker  ”hostseek.occ" 

PROC  HostSeeker  (CHAN  OF  ANY  fromSeeker,  toSeeker  ) 

— { { {  libraries 
♦INCLUDE  "s_header . inc" 

♦INCLUDE  "hostio . inc" 

♦USE  "hostio . lib" 

—  1  }  1 

— {{{  link  definitions 


VAL 

linkOout 

IS 

0 

VAL 

linklout 

IS 

1 

VAL 

link2out 

IS 

2 

VAL 

link3out 

IS 

3 

VAL 

linkOin 

IS 

4 

VAL 

linklin 

IS 

5 

VAL 

link2in 

IS 

6 

VAL 

link3in 

IS 

7 

—  m 

— { { (  channels 
CHAN  OF  SP  fs,  ts  : 

PLACE  fs  AT  linkOin  : 

PLACE  ts  AT  linkOout  : 

—  n } 

— { { (  constants 
VAL  esc  IS  27  : 

VAL  max . screen . width  IS  640  : 

VAL  max. screen . height  IS  480  : 

— )  )  ) 

--{{{  utility  procs 
— {{{  goto . xy 

PROC  goto.xy  (CHAN  OF  SP  fs,  ts,  VAL  INT  x,  y) 
VAL  esc  IS  27  (BYTE)  : 


SEQ 


so . 

.  write . 

.string  (fs, 

ts, 

(esc 

so . 

.  write . 

.  int 

(fs. 

ts. 

y+1 

,  0) 

so . 

.  write , 

.  char 

(fs, 

,  ts 

1  . 
t  • 

’) 

so , 

.  write . 

.  int 

(fs. 

ts. 

x+1 

,  0) 

so . 

.  write . 

,  char 

(fs, 

,  ts 

,  'H 

’) 

) 

i 

clear 

.  eos 

PROC  clear. eos  (CHAN  OF  SP  fs,  ts) 

VAL  esc  IS  27  (BYTE)  : 

SEQ 

so . write . string  (fs,  ts,  [esc,  '[',  'J']) 

—  m 

n 

—  f ( {  SC  Encode 
♦USE  "gif .c8h" 

-- ( { (F  gif .occ 

: :F  gif .OCC 

— }  )! 

—  1)  ) 

— { { (  SC  loader 
♦USE  "loader. c8h" 

-- ( ( { F  loader . occ 
— : : : F  LOADER. OCC 


--{({  SC  runSeeker 
♦USE  "runseekr . c0h” 
—  t  { { F  runSeekr. occ 
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— : : :F  RUNSEEKR.OCC 
— )  M 

— m 

— {{{  spectrum 

PROC  spectrum  (  [256] INT  palette  ) 


PROC  set. colour  (VAL  INT  index, 
SEQ 

palette [ index]  :=  (r  «  18) 


r,  g,  b) 

\/  { (g  «  10) 


\/ 


<b  «  2)  ) 


SEQ 

SEQ  i  -  C  FCR  64 

to  63 

set. colour]  i,  i,  0,  31-(i»l) 
SEQ  i  -  0  FOR  64 

set. colour]  64  +  i,  63,  i,  i  ) 


clue  to  reu  scale  for  1 

—  adding  green  and  blue 
for  64  to  127 


SEQ  i  =  128  FOR  128 

set.colour(  i,  0,  63,  0  ) 
set.colour(  0,  0,  0,  0  ) 
set. colour]  128,  30,  30,  30 


green  for  128-255 

black  for  0 
grey  for  128 


— }  )  } 

— ({{  main  menu  variables 
BOOL  dont.exit  : 

BYTE  key,  result  : 

— })  } 

SEQ 

dont.exit  :=  TRUE 
WHILE  dont . exit 
SEQ 

— { { (  Main  Menu 


goto . xy (  fs,  ts, 

o. 

0  ) 

clear. eos  (  fs,  ts 

) 

so .write . string ( 

fs. 

ts, 

"Main 

Seeker  Menu*c*n"  ) 

so. write. string] 

fs. 

ts. 

If 

- *c*n*n"  ) 

so . write . string ( 

fs, 

ts. 

" * '  Esc 

*'  key  to  exit  programme 

so . write . string ( 

fs, 

ts. 

"  ]c) 

capture  screen  image*c*n 

so . write .string ( 

fs, 

ts. 

"  (1) 

load  new  data*c*n"  ) 

so . write . string ( 

fs, 

ts. 

"  (r) 

run  seeker *c*n"  ) 

so.write.nl]  fs, 

ts 

) 

so.getkev]  fs,  ts,  kev,  result  ) 

—  m 

CASE  key 

— ({(  c  -  capture  screen 

'C',  'c' 

[max . screen . width] BYTE  screen .buffer  : 

[max . screen . height ] [max . screen . width] INT  screen  : 

[256] aNT  palette  : 

INT  screen . height ,  screen. width  : 

SEQ 

—  t ( i  header 
goto.xy]  fs,  ts,  0,  0  ) 
clear,  eos  (  fs,  ts  ) 

so . write . string {  fs,  ts,  "Capture  Screen  Image *c*n"  ) 
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toSeeker  !  2  (BYTE);  c . read. graphics  ;  track . display 
fromSeeker  ?  screen . height 
SEQ  i  =  0  FOR  screen .height 
SEQ 

so. write. int  (fs,  ts,  i,  0) 

so .write .char  (fs,ts,  '*c') 

fromSeeker  ?  screen . width screen .buffer 

SEQ  j  =  0  FOR  screen. width 

screen[i][j]  :=  (INT  screen .buffer  [  j ] ) 
so.write.nl  (fs,  ts) 

—  3  ) } 

— (((  image  display  0 

so . write . string (  fs,  ts,  "Capturing  image  display 

0 . . . *c'n"  ) 

toSeeker  !  2  (BYTE);  c . read. graphics  ;  image .display . 0 
fromSeeker  ?  screen . height 
SEQ  i  =  0  FOR  screen .height 
SEQ 

so. write. int  (fs,  ts,  i,  0) 

so .write . char  (fs,ts,  '*c') 

fromSeeker  ?  screen . width screen . buffer 

SEQ  j  =  0  FOR  screen. width 

screen[i][j]  :=  screen[i][j]  \/  (INT 

screen .buffer ( j ] ) 

so.write.nl  (fs,  ts) 

— }  i ) 

— ({{  image  display  1 

so . write . string (  fs,  ts,  "Capturing  image  display 

1 . . . *c*n"  ) 

toSeeker  !  2  (BYTE);  c . read . graphics  ;  image . display . 1 
fromSeeker  ?  screen . height 
SEQ  i  =  0  FOR  screen . height 
SEQ 

so. write. int  (fs,  ts,  i,  0) 

so. write. char  (fs,ts,  '*c') 

fromSeeker  ?  screen . width screen .buffer 

SEQ  j  =  0  FOR  screen. width 

screen[i][j]  :=  screen[i][j]  \/  (INT 

screen . buffer ( j ] ) 

so.write.nl  (fs,  ts) 

— }  }  } 

— }  }  I 

--({{  run  gif  encoder 
INT32  streamid  : 

BYTE  result  : 

SEQ 

so. open  (fs,  ts,  "seeker.gif",  spt . binary,  spm. output, 
streamid,  result) 

Encode  (fs,  ts,  streamid,  screen . width,  screen .height, 

8,  palette,  screen) 

-HI 
}  ) 

--( ( (  1  -  load  new  data 

' L' ,  ' 1  ' 

loader  (fs,  ts,  fromSeeker,  toSeeker) 

--in 

— { ( (  r  -  run  seeker 

'R',  'r' 

runSeeker  (fs,  fs,  fromSeeker,  toSeeker) 

—  m 

— { ( (  escape 
(BYTE  esc) 

dent. exit  :=  FALSE 

—  m 
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— ( { {  else  skip 
ELSE 
SKIP 
— }  }} 

so. exit (  fs,  ts,  0  (INT32)  ) 
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6.2.1.16.  PROCHostStub 

PROC  HostStub  (CHAN  OF  ANY  from. emulator,  to. emulator) 
SKIP 


"hoststub.occ" 
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6.2.1.17.  PROC  ImageDisplay 

PROC  ImageDisplay  (  CHAN  OF  ANY  ImageO,  Imagel, 

fromPrev,  toPrev,  fromNext, 
VAL  INT  position,  FRAMES  ) 

-- { ( {  libraries 
♦INCLUDE  "crtc.inc" 

♦INCLUDE  "g_header . inc" 

♦INCLUDE  "s_header . inc" 

♦USE  "convert . lib" 

♦USE  "graphics . lib" 

--}  )  ) 

— {{(  place  system  variables 
[ (20*65536) +1280]  BYTE  screen. map  : 

PLACE  screen. map  AT  screen . int . address  : 

INT  DisplayStart  : 

PLACE  DisplayStart  AT  DisplayStart . address  : 

INT  EventMode  : 

PLACE  EventMode  AT  EventMode . address  : 

INT  SysReady  : 

PLACE  SysReady  AT  (#00080000  ><  (MOSTNEG  INT))  »  2  : 

INT  Ready  : 

PLACE  Ready  AT  Ready . address  : 

— )}} 

— (({  FrameReceiver 

PROC  FrameReceiver  (  CHAN  OF  ANY  inO,  ini, 

[128]  [1280]  BYTE  frame, 

VAL  INT  countO,  countl  ) 


— {{{  MOVE 

PROC  MOVE (  [] []  BYTE  source,  VAL  INT  s.x,  s.y, 

[][]  BYTE  dest,  VAL  INT  d.x,  d.y,  1.x,  1. 


1.x] 


SEQ  i  =  0  FOR  l.y 

[dest  [d . y+i ]  FROM  d.x  FOR  1.x] 


[source [s .y+i] 


--Ml 

[123] [40] [32]  BYTE  s  RETYPES  frame  : 

[2] [8] [16]  3YTE  bufferO  : 

PLACE  bufferO  IN  WORKSPACE  : 

[2] [8] [16]  BYTE  bufferl  : 

PLACE  bufferl  IN  WORKSPACE  : 

SEQ 

--{{{  get  first  lines 
PAR 

ir.0  ?  bufferO  [0] 
ini  ?  buf ferl [0] 

get  lines  and  place  on  display 


PAR 


o’j  i : 


"imagedis.occ" 

toNext, 


) 

FROM  s  .  x  FOR 
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inO  ?  bufferO [input] 

— {{{  place  on  display 
SEQ 


MOVE2D ( 

b0, 

0, 

0, 

si. 

o. 

0, 

16, 

8 

) 

MOVE2D ( 

bO, 

0, 

0, 

si. 

o, 

20, 

16, 

8 

) 

MOVE 2D ( 

bl, 

0, 

w 

si, 

16, 

0, 

16, 

8 

) 

MOVE 2D ( 

bl. 

0, 

0, 

si. 

16, 

20, 

16, 

8 

) 

— }}  } 

ini  ?  bufferl [input] 

—  HI 

— {({  place  last  lines  on  display 
si  IS  s  [  127  ]  : 

bO  IS  bufferO  [  1  J  : 
bl  IS  bufferl [  1  ]  : 

SEQ 


MOVE 2D ( 

bO, 

o. 

0, 

si. 

0, 

-  r 

lc. 

8 

) 

MOVE 2D ( 

bO, 

o, 

0, 

si, 

o, 

20, 

16, 

8 

) 

MOVE 2D ( 

bl, 

o, 

0, 

si. 

16, 

0, 

16, 

8 

) 

MOVE 2D ( 

bl. 

o, 

0, 

si, 

16, 

20, 

16, 

8 

) 

— }  }  ) 

--} }  i 

— {{{  place  Event  channel 
CHAN  OF  ANY  Event  : 

PLACE  Event  AT  8  : 

— }  }  } 

--({{  set  up  multiple  screens 

VAL  screen. offset  IS  [  #00000,  #50000,  #A0000,  #F0000  ]  : 

VAL  screen. address  IS  [  #00000,  #14000,  #28000,  #3COOO  ]  : 

—  ]  }  ) 

— (({  EventProc 

PROC  EventProc  (  CHAN  OF  ANY  Event,  in  ) 

INT  synch,  address  : 

WHILE  TRUE 
SEQ 

in  ?  address 
Ready  : =  1 
Event  ?  synch 
DisplayStart  :=  address 
Ready  : =  0 

—  m 

— ( ( (  Buffer 

PROC  Buffer  (  CHAN  OF  ANY  in,  out  ) 

INT  temp  : 

SEQ 

WHILE  TRUE 
SEQ 

in  ?  temp 
out  !  temp 

—  m 

— {({  SetNewScreen 

PROC  SetNewScreen  (  CHAN  OF  ANY  in,  VAL  INT  screen . address  ) 

INT  synch  : 

SEQ 

Ready  : =  1 
in  ?  synch 

DisplayStart  : =  screen . address 
SEQ' i  =  0  FOR  100 
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SKIP 

Ready  : =  0 


— }  )  ) 

— { { {  constants 


VAL 

screen . width 

IS 

640  : 

VAL 

screen . height 

IS 

480  : 

VAL 

screen .size 

IS 

screen . width 

— )  }  } 

—  U  { 

variables 

CHAN  OF  ANY  synch,  synchl  : 
INT  temp,  load  : 

[w. length]  INT  window  : 


screen . height  : 


INT  start. time,  end-time  : 
TIMER  clock  : 


BYTE  length  : 

[256] INT  message  : 

-- { { {  x. offset 

VAL  offset  IS  [  32,  352  ]  : 

VAL  x. offset  IS  offset]  position  ]  : 

—  M  ) 

— } } } 

SEQ 

-- { ( {  initialize 

set . B408  (  0,  0,  0,  0,  0  ) 

window  :=  [  0,  640*480,  640,  0,  0,  640,  480,  255,  0,  0,  0  ] 

[]  INT  int. screen  RETYPES  screen. map  : 

SEQ  i  =  0  FOR  (20*65536) /4 
int.screen[i]  :=  0 

set . B408  (  0,  0,  0,  1,  0  ) 

load  :=  0 

PRI  PAR 
PAR 

EventProc(  Event,  synchl  ) 

Buffer (  synch,  synchl  ) 

— {({  read  display  info 
command  IS  message [0]  : 

who  IS  message [1]  : 

WHILE  TRUE 
SEQ 

fromPrev  ?  length : :message 
IF 

command  =  c . read .graphics 
CASE  who 

image . display . 0  --  this  processor 

screen  IS  [screen. map  FROM  DisplayStart 

[screen. height] [screen. width]  BYTE  s2 
SEQ 

toPrev  !  screen . height 
SEQ  i  =  )  FOR  screen . height 
toPrev  !  screen . width :: s2 [ i ] 


uLOIj 

—  f  {  < 


FOR 


screen. size  ] 


RETYPES  screen 
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[maxGraphicBuf fer] BYTE  graphicsBuf fer  : 

SEQ 

message  [1]  :=  message  [1]  -  1  --  dec:  'raent  and 

send  on 

toNext  !  length: :message 
fromNext  ?  number .of .transfers 
toPrev  !  number . of . transfers 
SEQ  i  =  0  FOR  number . of . transfers 
SEQ 

fromNext  ?  bufLength :  .-graphicsBuf fer 
toPrev  !  bufLength: :graphicsBuf fer 

—in 

TRUE 

SKIP 


— } }  r 

— { { {  get  display 
SEQ 

WHILE  TRUE 

VAL  start  IS  s  .reen.of fset [load]  +  ((112  *  screen . width)  + 

x. offset)  : 

VAL  size  IS  256  *  screen. width  : 

screenl  IS  [screen. map  FROM  start  FOR  size  ]  : 

[128] [screen. width*2]  BYTE  screen  RETYPES  screenl  : 

SEQ 

FrameReceiver (  ImageO,  'magel,  screen,  16,  4  ) 
synch  !  screen . address [ load] 
load  :*=  (load  +1)  A3 

--n } 


S6 
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6.2.1.18.  PROC  Loader  (used  by  Host) 

— ( { {  libraries 
♦INCLUDE  "s_header . inc" 

♦INCLUDE  "hostio . inc" 

♦USE  "hostio. lib" 

—  1)  1 

PROC  loader  (CHAN  OF  SP  fs,  ts,  CHAN  OF  ANY  from. seeker,  to 


— { { (  constants 
VAL  esc  IS  27  : 

VAL  c. cal. frames  IS  2  : 

VAL  c. background  IS  0  : 

VAL  c. foreground  IS  1  : 

VAL  c. row. data  IS  44  : 

VAL  max. rows  IS  128  : 

VAL  max. cols  IS  128  : 

VAL  max. t. cols  IS  512  : 

VAL  max . fpa . frames  IS  200  : 
VAL  max. buff .size  IS  128  : 
VAL  sub. pixel. x  IS  4  : 

VAL  sub. pixel. y  IS  4  : 


— !)) 

--{({  global  variables 

INT  num. frames,  num. sim. frames  : 

BOOL  fpa. values,  sim. values  : 

(max . fpa . frames] REAL32  frame. rate,  fpa. time,  fpa . range  : 
( 6] (max . fpa . frames ] REAL32  fpa. position  : 

[max. sim. frames] REAL32  sim. time,  sim. range  : 

[ 6] [max. sim. frames] REAL32  sim. position  : 

-- !  }  } 

— !  it  channels 
VAL  link. in. 3  IS  7  : 

VAL  link. out. 3  IS  3  : 


CHAN  OF  ANY  from.vax,  to.vax  : 

PLACE  from.vax  AT  link. in. 3  : 

PLACE  to.vax  AT  link. out. 3  : 

— 11) 

— { { {  utility  procs 
—  t ( {  goto . xy 

PROC  goto. xy  (CHAN  OF  SP  fs,  ts,  VAL  INT  x,  y) 
VAL  esc  IS  27  (BYTE)  : 

SEQ 


so . write 

string  ( 

fs,  t 

s,  [esc 

so , w  r i u  ^ 

int  (fs. 

ts, 

y4-!,  0) 

so . write 

.  zhar  ( fs 

,  uO, 

'  ;  ') 

so .write 

.  ir.t  (fs. 

t  3  , 

x*l,  0) 

30 . write 

,  o  r.  a  r  (  f  s 

,  t  3  • 

'  H  '  ) 

- \  1  1 

'  ■  1  3  —  -5  3  r  .  e  3  3 

PROC  clear .  e  os  (CHAN  Or  S?  fs,  ts) 
m*/  esc  I  o  2  ■  ( 3 1 T  )  : 


3 


’ :  ■ ,  ■  j  '  ] ) 


"loader.occ'' 


seeker) 


S 
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— )  )  ) 

—  )}) 

— {{{  procs 
— { { {  proc  get . INT 

PROC  get. INT  (CHAN  OF  ANY  in,  out,  INT  value) 

SEQ 

out  !  4 
in  ?  value 

--} } } 

—  {  { {  proc  get. BYTE 

PROC  get. BYTE  (CHAN  OF  ANY  in,  out,  BYTE  value) 

SEQ 

out  !  1 
in  ?  value 

--}}} 

— {{{  proc  get.REAL32 

PROC  get . REAL32  (CHAN  OF  ANY  in,  out,  REAL32  value) 

SEQ 

out  !  4 
in  ?  value 

— ) }  ) 

— {{(  proc  get .REAL32 .vector 

PROC  get .REAL32 .vector  (CHAN  OF  ANY  in,  out,  [ ] REAL32  value) 

SEQ 

out  !  ( (SIZE (value) )  *  4) 
in  ?  value 

--}}} 

—  {{{  proc  vax. filter 

PROC  vax. filter  (CHAN  OF  ANY  from. filter,  to. filter,  from. vax, 

VAL  BOOL  dataFromTape) 

VAL  buffer. size  IS  16384  : 

VAL  max. record  IS  4097  : 

BOOL  continue,  waiting. flag,  full  : 

INT  need,  count,  start,  end  : 

BYTE  count. byte  : 

[buffer . size] BYTE  buffer  : 

SEQ 

continue  :=  TRUE 

waiting. flag  :=  FALSE 

start  :=  0 

end  :=  0 

full  :=  FALSE 

IF 

dataFromTape 

— (((  then  use  sophisticated  buffer 
WHILE  continue 
PRI  ALT 

to. filter  ?  need 
—  {  {  { 

IF 

need  =  0 

continue  :=  FALSE 
TRUE 
—  {  {  { 

IF 

(end  -  start)  >=  need 
SEQ 

from. filter  !  [buffer  FROM  start  FOR  need] 
start  :=  start  +  need 
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IF 

start  =  end 
SEQ 

start  :=  0 
end  : =  0 

TRUE 

SKIP 

TRUE 

waiting. flag  :=  TRUE 

— }}  } 

—  Ml 

(NOT  full)  &  from.vax  ?  count. byte 
—  {  (  { 

SEQ 

IF 

(count. byte  <>  (BYTE  #5E) ) 

SEQ 

— { { {  get  record 
count  :=  (INT  count. byte)  /\  #0F 
SEQ  i  =  0  FOR  3 
SEQ 

from.vax  ?  count. byte 

count  :=  (count  *  10)  +  ((INT  count. byte)  /\ 

#CF) 

count  :=  count  -  4 

from.vax  ?  [buffer  FROM  end  FOR  count] 
end  :=  end  +  count 
IF 

waiting. flag  AND  ((end  -  start)  >=  need) 

—  {({ 

SEQ 

from. filter  !  [buffer  FROM  start  FOR  need] 
start  :=  start  +  need 
IF 

start  =  end 
SEQ 

start  :=  0 
end  :=  0 

TRUE 

SKIP 

waiting. flag  :=  FALSE 

— )  }  } 

TRUE 
SKIP 
—  H  } 

TRUE 

SKIP 

full  :=  end  >  (buffer. size  -  max. record) 

— }  }  ! 

( waiting . flag  AND  full)  &  SKIP 
—  {  {  ( 

[max . record] BYTE  temp  : 

INT  length  : 

SEQ 

length  :=  end  -  start 

(temp  FROM  0  FOR  length]  :=  [buffer  FROM  start  FOR 

-L  I”*  'T  C 

[buffer  FROM  0  FOR  length]  :=  [temp  FROM  0  FOR  length] 
start  :=  0 
end  :=  length 
full  :=  FALSE 

—  }  t 
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—  1  } } 

TRUE 

—  (fi 

WHILE  continue 
SEQ 

to. filter  ?  need 
IF 

need  =  0 

continue  :=  FALSE 
TRUE 
SEQ 

from.vax  ?  [buffer  FROM  0  FOR  need] 
from. filter  !  [buffer  FROM  0  FOR  need] 

—  m 

--n } 

— {{{  PROC  f ixVaxFloat 

PROC  f ixVaxFloat  (VAL  REAL 3 2  bad,  REAL32  good) 

SEQ 

VAL  [4] BYTE  twiddle. dee  RETYPES  bad  : 

[4] BYTE  twiddle. dum  RETYPES  good  : 

SEQ 

twiddle .dum [0]  :=  twiddle .dee [2] 

twiddle .  dum[ 1]  :=  twiddle. dee [3] 

twiddle.dum[2]  :=  twiddle .dee [0] 
twiddle .dum[3]  :=  twiddle .dee [1] 

— twiddle . dum [ 3 ]  :=  BYTE  (<INT  twiddle .dum [3] )  +  127 
INTI 6  dec. exp  RETYPES  [twiddle. dum  FROM  2  FOR  2]  : 

INTlo  ieee.exp  : 

VAL  zero  IS  0  (INT16)  : 

SEQ 

ieee.exp  :=  dec. exp  -  256  (INT16) 

IF 

(ieee.exp  <  zero)  AND  (dec. exp  >  zero) 

— ({{  fix  very  small  number 
SEQ 

dec. exp  :=  zero 
—  H  } 

TRUE 

dec. exp  :=  ieee.exp 

--)]  } 

— {{(  PROC  clear. screen 

PROC  clear . screen (CHAN  OF  SP  fs,  ts) 

SEQ 

goto.xy(fs,  ts,  0,0) 
clear .eos (fs,  ts) 

—  1  M 

— ({(  PROC  checkFloat 

PROC  checkFloat (VAL  REAL32  in,  REAL32  out) 

SEQ 

IF 

ISNAN ( in) 

out  :=  0.0  (REAL32 ) 

(ABS (in) )  >  1.0E+20  (REAL32 ) 
out  :=  i.OE+20  (REAL32 ) 

TRUE 

out  : =  in 

—  m 

--{{[  merge . sim.and. fpa  (CHAN) 

PROC  merge . sim.and. fpa  (CHAN  OF  ANY  to. seeker) 
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--{{{  INT  FUNCTION  MIN  (INT, INT) 
INT  FUNCTION  MIN  (VAL  INT  a,  b) 
INT  return  : 

VALOF 

IF 

a  <=  b 

return  :=  a 
TRUE 

return  :=  b 
RESULT  return 


— } }  > 

SEQ 

— {{{  display  some  text 
so . write . string ( fs,  ts, 

"FPA  and  Sim  values  have  all  been  loaded. *c*n") 
so . write . string ( fs,  ts, 

"Will  now  merge  data  sets  and  send  to  Seeker  Emulator*c*n" ) 
so. write. string(fs,  ts, 

"range,  time,  frame  rate,  and  interceptor  and  target 
coordinates . *c*n") 

— }  )  ) 

— {{{  compare  sim  frames  to  fpa  frames 
INT  frames. sent,  frames . to . send,  sim. count  : 

SEQ 

— {{(  send  sim. frames 
sim. count  :=  0 
frames. sent  :=  0 

WHILE  sim. time [sim. count]  <  fpa. time [0] 

SEQ 

— {{{  compute  range  values 
range  IS  sim. range [sim. count]  : 

SEQ 

range  :=  0.0  (REAL32 ) 

SEQ  i  =  0  FOR  3 


VAL  temp  IS  (sim. position [i] [sim. count]  - 

sim. position [i  +  3] [sim. count] )  : 
range  :=  range  +  (temp  *  temp) 
range  :=  SQRT  (range) 

—  }}} 

sim. count  :=  sim. count  +  1 
WHILE  frames. sent  <  sim. count 
SEQ 

frames . to . send  :=  MIN (sim. count  -  frames. sent 

max .buff . size) 


SEQ  i  =  0  FOR  6 
to. seeker  !  BYTE 


frames . to . send  ; 


(4  +  frames . to . send) 
c. sim. posit ion;  i; 


frames . sent 


[sim. position [i]  FROM 


frames. sent  FOR 


frames . to . send] 

to. seeker  !  BYTE  (3  +  frames . to . send)  ; 

c. frame. time  ;  frames. sent  ;  frames . to . send  ; 
[sim, time  FROM  frames. sent  FOR  frames . to . send] 
to. seeker  !  BYTE  (3  +  frames . to . send)  ; 

c . frame . range  ;  frames. sent  ;  frames . to . send  ; 
[sim. range  FROM  frames. sent  FOR  frames . to . send] 
frames. sent  ;=  frames. sent  +  frames . to . send 
—  ’  }  ! 


--[{{  get  position  values  for  fpa  frames 
INT  cur rent. sim  : 

SEQ 


cur rent. sim  sim. count  -  1 

SEQ  1=3  FOR  num. frames 
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SEQ 

WHILE  ABS (fpa .time [i]  -  sim. time [current . sim+1] )  < 

ABS (fpa .time [i]  -  sim. time [current . sim] ) 
current. sim  :=  current. sim  +  1 
SEQ  j  =  0  FOR  6 

fpa. position! j] [i]  :=  sim. position [ j ] [current . sim] 

SEQ  i  =  0  FOR  6 

to. seeker  !  BYTE  (4  +  num. frames)  ; 

c . sim. position;  i;  sim. count  ;  num. frames  ; 

[fpa .position [i]  FROM  0  FOR  num. frames] 
to. seeker  !  BYTE  (3  +  num. frames)  ; 

c. frame. time  ;  sim. count  ;  num. frames  ; 

[fpa. time  FROM  0  FOR  num. frames] 
to. seeker  !  BYTE  (3  +  num. frames)  ; 

c. frame. rate  ;  sim. count  ;  num. frames  ; 

[frame. rate  FROM  0  FOR  num. frames] 
to. seeker  !  BYTE  (3  +  num. frames)  ; 

c . frame . range  ;  sim. count  ;  num. frames  ; 

[fpa. range  FROM  0  FOR  num. frames] 
to. seeker  !  BYTE  (3)  ; 

c . sim. start . frames  ;  sim. count  ;  (sim. count  + 

num. frames)  -  1 
— )  )  ) 

— }  }  } 

}  } 

— {{{  load. background  (CHAN,  CHAN) 

PROC  load. background (CHAN  OF  ANY  from.vax,  to. seeker, 

VAL  BOOL  dataFromTape,  autoload) 

CHAN  OF  ANY  from. filter,  to. filter  : 

PAR 

vax. filter (from. filter,  to. filter,  from.vax,  dataFromTape) 

— {{{  local  variables 
BYTE  key,  result  : 

BOOL  error  : 

— )  }  } 

SEQ 

clear. screen  (fs,  ts) 

so . write . string  (fs,  ts,  "Loading  background  data . . . *c*n") 

— {{{  get  background  frames 
INT  nnrows,  nncols  : 

REAL32  diam,  fnum,  pxspcx, 

pxspcy,  filfax,  filfay  : 

[max. frames] REAL32  framrt,  range,  time  : 

BYTE  cr  : 

SEQ 

so . write . string ( fs,  ts,  "*c*nBackground  data . . . *c*n" ) 

— { ( {  file  header 

get . INT  ( from. filter,  to. filter,  nnrows) 
get. BYTE  ( from. filter,  to. filter,  cr) 
get . INT  ( from. filter,  to. filter,  nncols) 

get. BYTE  ( from. filter,  to. filter,  cr) 
get . REAL32  ( from. filter,  to. filter,  diam) 
get. BYTE  ( from. filter,  to. filter,  cr) 
get . REAL32  (from. filter,  to. filter,  fnum) 
get. BYTE  ( from. filter,  to. filter,  cr) 
get . REAL32 ( from. filter ,  to. filter,  pxspcx) 
g°t.BYTE  ( from . filter,  to. filter,  cr) 
get .REAL32 (from. filter,  to. filter,  pxspcy) 
get. BYTE  (from. filter,  to. filter,  cr) 
get . REAL32 ( from. filter,  to. filter,  filfax) 
get. BYTE  ( from. filter,  to. filter,  cr) 
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get .REAL32 (from. filter,  to. filter,  filfay) 
get. BYTE  ( from. filter,  to. filter,  cr) 

—  1  )  } 

— {{{  qeff  and  dark  current 
[max. cols] REAL32  qeff,  dkcurr  : 

SEQ 

so . write . string ( fs,  ts,  "Loading  and  sending  quantum 
efficiency  data.*c*n") 

SEQ  i  =  0  FOR  nnrows 
SEQ 


FOR  nncols] 


get . REAL32 . vector (from. filter,  to . filter, 

(qeff  FROM  0  FOR  nncols]) 
so .write . real32 (  fs,  ts,  qeff[0],  10,  3  ) 
so . write . char (  fs,  ts,  '*c'  ) 
get. BYTE  ( from. filter,  to. filter,  cr) 
to. seeker  !  BYTE  (2  +  nncols  ); 

c. gain. row  ;  (nnrows  -  i)  -  1  ;  [qeff  FROM  0 


so .write . string ( fs,  ts,  "Loading  and  sending  dark  current 

data . *c*n") 

SEQ  i  =  0  FOR  nnrows 
SEQ 

get . REAL32 .vector (from. filter,  to . filter, 

[dkcurr  FROM  0  FOR  nncols]) 
so  .write .  real32  (  fs,  ts,  d)ccurr[0],  10,  3  ) 
so . write .char (  fs,  ts,  '*c'  ) 
get. BYTE  ( from. filter,  to. filter,  cr) 
to. seeker  !  BYTE  (2  +  nncols  ); 

c. offset. row  ;  (nnrows  -  i)  -  1  ;  [dkcurr 


FROM  0  FOR  nncols] 

— }}} 

get . INT (from. filter,  to. filter,  num. frames) 

get. BYTE  ( from. filter,  to. filter,  cr) 

so . write . string ( fs,  ts,  "Loading  noise  data  now.*c*n") 

so . write . string ( fs,  ts,  "Number  of  frames:  ") 

so. write. int (fs,  ts,  num. frames,  0) 

so . write . nl ( fs,  ts) 

— (({  if  not  autoload  allow  for  reduced  frames 


autoload 

SKIP 

TRUE 

SEQ 

so . write . string ( fs,  ts,  "Force  Number  of  frames  to:  ") 
so . read. echo . int ( fs,  ts,  num. frames,  error) 
so.write.nl  (fs,  ts) 

— )  !) 

SEQ  i  =  0  FOR  num. frames 
—  {  {  ( 

INT  framid  : 

SEQ 

— ( { (  frame  header 
REAL32  temp  : 

SEQ 

get . INT ( from . filter,  to. filter,  framid) 
get. BYTE  ( from. filter,  to. filter,  cr) 


get .PEAL32 ( from. filter,  to. filter,  temp) 
get.3YTE  ( from. filter,  to. filter,  cr) 
range [i]  :=  temp 


ter,  to. filter,  time[i]) 
ter,  to. filter,  cr) 
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get .REAL32 ( from. filter,  to. filter,  framrt[i]) 
get. BYTE  (from. filter,  to. filter,  cr) 

— }}} 

— ({{  show  some  data  values 
so .write . int (fs,  ts,  framid,  10) 


so . write . real32 ( fs. 

ts. 

range [i] 

,  io. 

3) 

so . write . real32 (fs. 

ts, 

t ime [ i ] 

,  10, 

3) 

so . write . real32 ( f s. 

ts. 

f ramrt [ i] 

,  10, 

3) 

so.write.nl (fs,  ts) 

—  (  )  } 

SEQ  j  =  0  FOR  nnrows 

(max. cols JREAL32  noise. data  : 

SEQ 

get . REAL32 .vector (from. filter,  to . filter, 

(noise. data  FROM  0  FOR  nncols] ) 
get. BYTE  ( from. filter ,  to. filter,  cr) 
to. seeker  !  BYTE  (  3  +  nncols)  ; 

c .background. row  ;  i  ;  (nnrows  -  j)  -  1; 
[noise. data  FROM  0  FOR  nncols] 

— }  } ) 

—  IK 

so.write.nl  (fs,  ts) 

so . write . string ( fs,  ts,  "Finished  loading  background  data.*c*n 

"> 

IF 

autoload 

SKIP 

TRUE 

— {((  get  anything  extra 
BYTE  key,  result  : 

SEQ 

so. write. string (fs,  ts,  "Hit  any  key  when  file  load 
finished. *c*n  ") 

so.getkey (fs,  ts,  key,  result) 

--)  1  ) 

to. filter  !  0  —  terminate  filter 


— }  1  1 

— { ( f  load. target  (CHAN,  CHAN) 

PROC  load. target  (CHAN  OF  ANY  from.vax,  to. seeker, 

VAL  BOOL  dataFromTape,  autoload) 
CHAN  OF  ANY  from. filter,  to. filter  : 

PAR 


vax . filter ( from. filter,  to. filter,  from.vax,  dataFromTape) 
— (({  get  target  frames 
— {({  local  variables 
BYTE  key,  result  : 

BOOL  error  : 

INT  nsize,  start. frame  : 

BYTE  cr  : 


—  n ) 

SEQ 

— { ( {  display  title 
clear . screen ( fs,  ts) 
so . write . st ring ( fs,  ts,  " 
— ))( 

--{({  load  file  header 
SEQ 

get . INT  (from. filter, 
get . BYTE  ( from. filter, 
get. INT  ( from. filter, 
get. BYTE  ( from. filter , 
so . write . st ring ( fs,  ts. 


Loading  Target  data  now. . ,*c*n") 


to . filter, 
to . filter, 
to . filter, 
to . filter, 
"Number  of 


num. frames) 
cr) 

nsize) 

cr) 

frames  is  ") 
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so . write . int (fs,  ts,  num. frames,  0) 
so.write.nl {fs,  ts) 

— } }  ) 

--{{(  get  target  frames 
— {({  display  a  header 
IF 

autoload 

SKIP 

TRUE 

SEQ 

so . write . string ( fs,  ts,  "Force  Number  of  frames  to:  ") 
so . read. echo . int ( f s,  ts,  num. frames,  error) 
so.write.nl  (fs,  ts) 

so. write. string(fs,  ts,  "Target  data . . . *c*n") 

so . write . string ( fs,  ts,  "  Frame  ID  range  time 

rate") 

so.write.nl (fs,  ts) 

— } }  > 

— { { {  acquire  data 

VAL  num. full . rows  IS  nsize  /  sub. pixel. y  : 

VAL  num. full . cols  IS  nsize  /  sub. pixel. x  : 

SEQ  frame  =  0  FOR  num. frames 
INT  framid  : 

SEQ 

—  {  {  {  frame  id 

get . INT  ( from. filter,  to. filter,  framid) 
get. BYTE  ( from. filter,  to. filter,  cr) 
so. write. int (fs,  ts,  framid,  4) 

— )  }  } 

— {{{  everything  else 
REAL32  temp  : 

SEQ 

— {({  range 
REAL 3 2  temp  : 

SEQ 

get . REAL32 ( from. filter,  to. filter,  temp) 
get. BYTE  (from. filter,  to. filter,  cr) 
fpa . range [frame]  :=  temp 
so . write . st ring ( fs,  ts,  "  ") 

so .write . real32 (fs,  ts,  fpa . range [ frame] ,  10,  3) 

—  >)  ) 

— { { {  t ime 

get .REAL32 (from. filter,  to. filter,  fpa .time [frame] ) 
get. BYTE  < from. filter,  to. filter,  cr) 
so . write . string (fs,  ts,  "  ") 

so . write . real32 ( fs,  ts,  fpa .time [frame] ,  10,  3) 

—  m 

—  1 { {  framrt 

get . REAL32 ( from. filter,  to. filter,  frame . rate [ frame] ) 
get. BYTE  ( from. filter,  to. filter,  cr) 
so . write . string ( fs,  ts,  "  ") 

so. write . real32 (fs,  ts,  frame . rate [ frame] ,  10,  1) 

— }  )  1 

so . write . nl ( fs,  ts) 

SEQ  i  =  0  FOR  nsize 

(max . t . cols] REAL32  target. data  : 

(sub . pixel . x] (max . cols ] REAL32  arranged . data  : 

SEQ 

— (({  get  target  from  vax 

get . REAL 3 2 .vector(from. filter,  to. filter, 

(target. data  FROM  0  FOR  nsize/2]) 
get. BYTE  (from. filter,  to. filter,  cr) 
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nsize/2] ) 


get .REAL32 .vector (from. filter,  to. filter, 

[target. data  FROM  nsize/2 

get. BYTE  ( from. filter,  to. filter,  cr) 


FOR 


sub. pixel .y) ) 
sub .pixel . y) ) 


so. write. int (fs,  ts,  i,  0) 
so . write . string ( fs,  ts,"*c") 

--))) 

— ({{  correct  and  format  it 
INT  count  : 

SEQ 

count  :=  0 

SEQ  j  =  0  FOR  num. full . cols 
SEQ  k  =  0  FOR  sub. pixel. x 
SEQ 

arranged. data [k] [j]  :=  target . data [count] 
count  :=  count  +  1 

— })} 

— ({{  send  it  to  seeker 

— VAL  subpixel  IS  (  (sub. pixel. y  1)  (i  \ 

sub. pixel. x  : 

— VAL  current. row  IS  (num. full . rows  -  (i  / 

1  : 

VAL  subpixel  IS  (i  \  sub. pixel. y)  *  sub. pixel. x  : 

VAL  current . row  IS  (i  /  sub. pixel. y)  : 

SEQ  j  =  0  FOR  sub. pixel. x 
SEQ 

to. seeker  !  BYTE  (4  +  num. full . cols)  ; 

c. target. row  ;  frame  ; 
subpixel  +  j; 
current. row  ; 

[arranged. data [j]  FROM  0  FOR 

num. full. cols] 

— }  1  } 

— } }  1 

so. write. string(fs,  ts,  "*c") 

—  Hi 

— (({  send  frame. rate,  fpa. range,  f pa. time 
to. seeker  !  BYTE (3  +  num. frames)  ; 

c. frame. time;  0;  num. frames;  [fpa. time  FROM  0  FOR 

num. frames] 

to. seeker  !  BYTE (3  +  num. frames)  ; 

c . frame . rate;  0;  num. frames;  [frame. rate  FROM  0  FOR 

num. frames] 

to. seeker  !  BYTE (3  +  num. frames)  ; 

c . frame . range;  0;  num. frames;  [fpa. range  FROM  0  FOR 

num. frames] 

to. seeker  !  BYTE(3);  c . sim. start . frames ;  0;  (num. frames-1) 

— }  }  ) 

— }  J  ) 

-- ( ( (  finish  up 
INT  dummy  : 

SEQ 

so . write . nl ( fs,  ts) 

so . write . string ( fs,  ts,  "Finished  loading  target  data.*c*n  " ) 
IF 

autoload 

SKIP 

TRUE 

SEQ 

so  .  write .  string  (fs,  ts,  "Hit  any  key  when  file  transfer 


ends 


sc.getkev  (fs,  ts,  key,  result) 
to. filter  !  0 
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— )  )  ) 

— ({(  check  if  sim  values  have  been  loaded 
IF 

sim. values 

merge . sim. and. f pa  (to. seeker) 

TRUE 

SKIP 

f pa . values  :=  TRUE 
—  }> } 

— }  }  ) 

—  1  }  ) 

--(({  load. positions  (CHAN,  CHAN) 

PROC  load. positions  (CHAN  OF  ANY  from.vax,  to. seeker) 

SEQ 

— {{(  load  sim  values 
BOOL  continue  : 

SEQ 

clear . screen ( fs,  ts) 
continue  :=  TRUE 
num. sim. frames  :=  0 
WHILE  continue 
SEQ 

from.vax  ?  sim. time [num. sim. frames ] 

SEQ  i  =  0  FOR  6 

from.vax  ?  sim. position [i] [num. sim. frames] 

— {{{  display  values 

so . write . real32  (fs,  ts,  sim. time [num. sim. frames] ,  10,  3) 
so. write. char (fs,  ts,  '*c') 

—  1  (  } 

IF 

sim. time [num. sim. frames]  <  0.0  (REAL32 ) 
continue  :=  FALSE 
TRUE 

num. sim. frames  :=  num. sim. frames  +  1 

—  n } 

— {({  check  if  fpa  values  have  been  loaded 
IF 

fpa . values 

merge .sim. and. fpa  (to. seeker) 

TRUE 

SKIP 

sim. values  :=  TRUE 
— }  >  ) 

}  ) 

— }  }  } 

SEQ 

— { { {  initialize 
fpa. values  :=  FALSE 
sim. values  :=  FALSE 
— }  }  ) 

-- ( ( (  menu 
BYTE  key,  result  : 

BOOL  dont.exit  : 

SEQ 

dont.exit  :=  TRUE 
WHILE  dont.exit 
SEQ 

-- { { f  Leader  Menu 
goto . xy (  fs,  ts,  0,  0  ) 
clear. ecs (  fs,  ts  ) 

so .write . string (  ts,  ts,  "Load  New  Seeker  Lata  Menu*c*n"  ) 
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) 


so . write . string (  fs, 
so. write. string(  fs, 


ts,  " - *c*n*n"  ) 

ts,  "‘'Esc*'  key  to  exit  program. *c*n*n" 


so .write . string ( 

fs. 

ts,  " 

(b) 

so . write . string ( 

fs. 

ts,  " 

(t) 

so .write . string ( 

fs, 

ts,  " 

<P) 

background  data*c*n"  ) 
target  data*c*n"  ) 
position  information*c*n"  ) 


so.getkey(  fs,  ts,  key,  result  ) 

— )}} 

CASE  key 

— {{{  b  -  background  data 

'B',  'b' 

load. background (from.vax,  to. seeker,  FALSE,  FALSE) 
— })} 

— { { {  t  -  target 

•T',  't' 

load. target (from. vax,  to. seeker,  TRUE,  FALSE) 

—  }}> 

— { { {  p  -  position  info 

•P',  'p' 

load. posit ions ( from.vax,  to . seeker) 

— }  }  } 

— { { {  escape 
(BYTE  esc) 

dont.exit  :=  FALSE 
—  1  }  1 

— { { {  else 
ELSE 
SKIP 
— }  }  ) 


US 


Final  Report 


6.2.1.19.  PROC  runSeeker  "runseekr.occ" 

— { ( {  libraries 
♦INCLUDE  "s_header . inc" 

♦INCLUDE  "hostio . inc" 

♦USE  "hostio. lib" 

— )  }  ) 

PROC  runSeeker  (CHAN  OF  SP  fs,  ts,  CHAN  OF  ANY  fromSeeker,  toSeeker) 

— ( { {  utility  procs 
— {{{  goto . xy 

PROC  goto . xy  (CHAN  OF  SP  fs,  ts,  VAL  INT  x,  y) 

VAL  esc  IS  27  (BYTE)  : 

SEQ 

so . write . string  (fs,  ts,  [esc,  '[']) 

so. write. int  (fs,  ts,  y+1,  0) 

so . write . char  (fs,  ts, 

so. write. int  (fs,  ts,  x+1,  0) 

so . write . char  (fs,  ts,  'H') 

--}  )  ) 

— { ( (  clear. eos 

PROC  clear. eos  (CHAN  OF  SP  fs,  ts) 

VAL  esc  IS  27  (BYTE)  : 

SEQ 

so .write . string  (fs,  ts,  [esc,  * [',  'J']) 

—  Ill 

— { { 1  so . get .extended. key 

PROC  so .get .extended. key  (CHAN  OF  SP  fs,  ts,  INT  extended. key) 

BYTE  key,  result  : 

SEQ 

so. getkey(  fs,  ts,  key,  result) 

IF 

key  =  0  (BYTE) 

SEQ 

so.getkey  (fs,  ts,  key,  result) 
extended. key  :=  256  +  (INT  key) 

TRUE 

extended. key  :=  (INT  key) 

—  m 

-- f • {  get . real32 

PROC  get . real32  (  CHAN  OF  S?  fs,  ts,  REAL32  value  ) 

BOOL  error  : 

SEQ 

so . read. echo . rea!32 (  fs,  ts,  value,  error  ) 

WHILE  error 
SEQ 

so . write . string (  fs,  ts,  "*c*nliiegal  Real  Number  :  "  ) 
so . read . echo . real32 (  fs,  ts,  value,  error  ) 

— }  }  1 

-- j ( (  get . int 

PROC  get. int  (  CHAN  OF  3?  fs,  ts,  INT  value  ) 


BCCL  error  : 
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--})} 

—  I  }  ) 

— { { ;  constants 
VAL  esc  IS  27  : 

— )  1  ) 

— { { {  move . table 


VAL  move. table  IS  [ 

[ 

328, 

o, 

1 

]  , 

— 

up 

[ 

336, 

0, 

-1 

], 

— 

down 

[ 

331, 

1 

t 

0 

3, 

— 

left 

C 

333, 

-1, 

0 

3, 

— 

right 

[ 

329, 

-1, 

1 

], 

— 

up  and  right 

[ 

337, 

-1, 

-1 

], 

— 

down  and  right 

[ 

335, 

1, 

-1 

], 

-- 

down  ar.d  left 

[ 

327, 

1, 

1 

3, 

— 

up  and  left 

[ 

56, 

o, 

4 

3, 

— 

up 

[ 

50, 

0. 

-4 

3, 

— 

down 

( 

52, 

4, 

0 

3, 

— 

left 

[ 

54, 

-4, 

0 

3, 

— 

right 

[ 

57, 

-4, 

4 

3  r 

-- 

up  and  right 

[ 

51, 

-4, 

-4 

3, 

-- 

down  and  right 

[ 

49, 

4, 

-4 

3, 

— 

down  and  left 

_ \  \  \ 

[ 

55, 

4, 

4 

3  3  : 

— 

up  and  left 

)  i  ) 

-- ( { |  variables 

BYTE  key,  result  : 

BOOL  running  : 

— )  U 

SEQ 

— { { (  initialize 
so .write . string (  fs. 

ts 

;,  "Initiali 

ze  Start 

Frame  (y/n)  ") 

so.getkey  (fs,  ts,  key,  result) 

CASE  key 

■Y',  1 y 1 

toSeeker  !  3 (BYTE);  c . sim. start . frames ;  0;  0 
ELSE 
SKIP 


toSeeker 

toSeeker 

toSeeker 

30000 


1 (BYTE) ;  c . test . controller 
2 (BYTE);  c . global . scale ;  0 . 5E-3 (REAL32 ) 

6 (BYTE);  c . set . calibration;  2; 

2000000. 0(REAL32) ;  80000000.0 (REAL32 ) ; 


750; 


running  :=  TRUE 
— )  }  ) 

WHILE  running 
SEQ 


menu , 


— ( { {  Run  Seeker 

Menu 

goto.xy(  fs,  ts. 

0, 

0  ) 

clear  .eos  (  fs,  ts 

) 

so. write. string ( 

fs, 

ts,  "Run 

Seeker  Menu*c*n"  ) 

so . write . string ( 

fs. 

ts,  " - 

- *c*n*n"  ) 

so. write. string ( 

f  s 

ts. 

«  *  » 

Esc*'  key  to  return  to  previous 

n*n"  ) 

sn .write . string ( 

fs, 

ts, 

(  ) 

single  frame  step*c*n"  ) 

so . write . string ( 

fs, 

ts, 

(a) 

set  to  first  fpa  frame*c*n"  ) 

so . write . string ( 

fs. 

ts. 

(c) 

continous  mode*c*n"  ) 

so . write . st  ring ( 

fs. 

o 

— *  t 

(f) 

set  frame  number*c*n"  ) 

so . write . string ( 

f  3  , 

ts , 

(g) 

initialize  guidance*c*n"  ) 

so . write . st ring ( 

fs. 

ts. 

(r) 

restart  from  calibraticn*c*r."  ) 

so .write . string ( 

c  « 

-  ^  r 

ts. 

(3) 

set  A/D  gain*c*r."  ) 

so .write . string ( 

C  rx 

*-  t 

—  r 

i ) 

set  test  mode *c*n"  ) 

so . write . string ( 

C  r~ 

i-  5  r 

_•  f 

(:•:.) 

set  first  and  last  frarr.e*c*n"  ) 
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so . write . string (  fs,  ts,  "  (z)  set  calibration*c*n"  ) 
so. write. nl(  fs,  ts  ) 

so.getkey(  fs,  ts,  key,  result  ) 

—  m 

CASE  key 

—  {  ( {  single  frame 

I  » 

toSeeker  !  l(BYTE);  c. run. single 
— }  }  } 

—  {  ( {  continuous 

'  C ' ,  1  c 1 

INT  key  : 

SEQ 

— {({  display  continuous  menu 
gotc.xy  (fs,  ts,  0,  0) 
clear. eos  (fs,  ts) 

so . write . string (  fs,  ts,  "Continuous  Mode*c*n"  ) 


so . write . string (  fs,  ts, 


-*c*n*n"  ) 


so . write . string (  fs,  ts,  "*'Esc*'  key  to  return  to 
previous  menu.*c*n"  ) 

so .  write .  string  (  fs,  ts,  "  Press  cursor  keys  to  shift 

image*c*n*n"  ) 

so . write . string (  f 
so . write . string (  fs,  ts. 


ts. 

"  Home 

I  PgUp*c*n*n' 

ts. 

"  < - 

- >*c*n*n' 

ts, 

"  End 

|  PgDn*c*n*n' 

ts. 

"  Use 

*  *  Shift  * ’  key  f 

movement . "  ) 

—  > } } 

toSeeker  !  1 (BYTE) ; c . run . continuous 
so. get .extended. key  (fs,  ts,  key) 

WHILE  (key  <>  esc) 

SEQ 
IF 

IF  i  =  0  FOR  SIZE  move. table 
key  =  move .table [i] [0] 

toSeeker  !  cc . shift . image; 

move . table [ i]  [2  ] 

TRUE 

SKIP 

so .get . extended . key  (fs,  ts,  key) 
toSeeker  !  cc.exit 

—  m 

-- { { {  restart 

•R',  'r' 

toSeeker  !  l(BYTE);  c. restart 

—  m 

— {{{  start  from  first  fpa  image 
' A' ,  'a ' 

toSeeker  !  4 (BYTE) ;  c . start . frame;  1;  0;  1 
— )  }  } 

—  (  t {  scale 

'S',  's' 

REAL32  scale  : 

SEQ 

30 . write . st ring (  fs,  ts,  "*c*nEnter  new  scale: 

get . rea  .o2  (  fs,  fs,  scaxe  ) 

toSeeker!  2 (BYTE);  c .global . scale;  scale 


move. table [i] [1] ; 


~~  i  i  t 

t  rr*  t 


:e j t  mode 


ee/ce : 


iYTE) ;  c . test .background 
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toSeeker  !  1 (BYTE' ;  c . test . controller 
— }  )  > 

— { { {  frame 
'F',  'f' 

INT  relative,  frame  : 

SEQ 

so . write . string  (fs,  ts,  "*c*nChange  frame  (y/n)?  ") 
so.getkey  (fs,  ts,  key,  result) 

CASE  key 
'Y',  'y' 

— { ! (  get  frame 
SEQ 

so .write . string  (fs,  ts,  "*c*nStart  relative  to 
first  FPA  frame  (y/n)?  ") 

so.getkey  (fs,  ts,  key,  result) 

CASE  key 

•Y',  ' y 1 

relative  :=  1 
ELSE 

relative  :=  0 

so . write . st ring (  fs,  ts,  "*c*nStart  Frame:  "  ) 
get.int(  fs,  ts,  frame  ) 

— } }  ) 

ELSE 

relative  :  =  -1 

so . write . string  (fs,  ts,  "*c*nDisplay  fixed  frame  (y/n)? 

") 

so.getkey  (fs,  ts,  key,  result) 

CASE  key 
■Y',  •y1 

toSeeker  !  4 (BYTE);  c . start . frame;  relative;  frame;  0 
ELSE 

toSeeker  !  4(BYTE);  c . start . frame;  relative;  frame;  1 

— }  )  ) 

— {{{  set  calibration 

'  Z  ' ,  '  z  ' 

REAL 3 2  cO,  cl  : 

INT  spO,  spl  : 

SEQ 

so . write . string (  fs,  ts,  "*c*nLevel  for  First  Calibration 

on  Seeker:  "  ) 

get.real32(  fs,  ts,  cO  ) 

so .write . string (  fs,  ts,  "*c*nLevel  for  Second  Calibration 

on  Seeker:  "  ) 

get.real32(  fs,  ts,  cl  ) 

so . write . string (  fs,  ts,  "*c*nLevel  for  First  Calibration 

on  SP  :  "  ) 

get.intt  fs,  ts,  spO  ) 

so . write . string (  fs,  ts,  "*c*nLevel  for  Second  Calibration 

on  SP:  "  ) 

get.intt  fs,  ts,  spl  ) 

toSeeker  !  6 (BYTE);  c . set . calibration;  2;  cO;  cl;  spO;  spl 

—  m 

— {{{  set  first  frame 

'X',  'x' 

INT  first,  last  : 

SEQ 


so . write . str 

ing  ( 

fs. 

ts. 

"*,c*nEnter  value  for  first  frame 

get . int  (  fs, 

ts , 

firs 

t  ) 

so . write .str 

ing  ( 

fs. 

to. 

”*c*nEnter  value  for  last  frame 

get .  int  (  fs. 

t  3  / 

last 

) 
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toSeeker  !  3 (BYTE) ;  c . sim. start . frames ;  first;  last 
— )  )  ) 

— ({{  guidance  initialize 

•G',  'g' 

BOOL  not. valid. key,  abort  : 

SEQ 

— {({  display  guidance  menu 
goto.xy  (fs,  ts,  0,  0) 
clear. eos  (fs,  ts) 

so. write. string(  fs,  ts,  "Guidance  Selection*c*n"  ) 

so  .write  .  string  (  fs,  ts,  " - *c*n*n"  ) 

so. write. string(  fs,  ts,  "*,Esc*'  key  to  return  to 
previous  menu.*c*n*n"  ) 

so. write. string(  fs,  ts,  "  (x)  crossbar  test*c*n"  ) 

so. write. string(  fs,  ts,  "  (i)  internal  test*c*n"  ) 

so. write. string)  fs,  ts,  "  (n)  no  guidance*c*n"  ) 

—  n } 

not .valid. key  ;=  TRUE 
WHILE  not .valid. key 
SEQ 

not .valid. key  :=  FALSE 
abort  :=  FALSE 

so.getkey  (fs,  ts,  key,  result) 

CASE  key 

—  m  x 

'  X  '  ,  '  x  ' 

toSeeker  !  2 (BYTE) ;  c .guidance . set .mode ; 

gm. external 

—  HI 

—  in  i 

•I’,  ' i ' 

toSeeker  !  2 (BYTE) ;  c .guidance . set .mode; 

gm. internal 

—  1  }  ) 

—  U(  n 
'N*,  'n' 

toSeeker  !  2 (BYTE) ;  c .guidance . set .mode;  gm.none 
— })) 

— { ( {  escape 
(BYTE  esc) 

abort  :=  TRUE 

—  m 

— { { {  else 
ELSE 

not . valid . key  :=  TRUE 

—  n } 

IF 

abort 

SKIP 

TRUE 

toSeeker  !  1  (BYTE) ;  c. guidance . initialize 

—  m 

— { { {  escape 
(BYTE  esc) 

running  :=  FALSE 

—  m 

—  {  {  {  other 
ELSE 
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6.2.1.20.  PROC  SecondBuffer  (Graphics  Buffer) 

PROC  SecondBuffer  (  CHAN  OF  ANY  in,  fromNext,  toPrev, 

VAL  INT  position,  shift  ) 

— { ( {  constants 
— } }  i 

— { { {  variables 

[2]  [64]  INT  input. buffer  : 

INT  count  : 

—  K  } 

— ( { {  channels 

CHAN  OF  ANY  synch,  internal  : 

— }  }  ) 

— {{{  Receiver 

PROC  Receiver  (  CHAN  OF  ANY  in,  out,  [2] [64]  INT  buffer  ) 

INT  i  : 

SEQ 

i  :=  0 
WHILE  TRUE 
SEQ 

in  ?  buffer[i] 
out  !  i 
i  :=  1  -  i 

--}}  t 

— { ( (  Extractor 

PROC  Extractor  {  CHAN  OF  ANY  internal,  in,  out, 

VAL  INT  count  ) 

--{{{  variables 

[2]  [64]  [2]  BYTE  buffer  : 

INT  output  : 

— }  >  } 

SEQ 

internal  ?  buffer [0] 
output  :=  0 
WHILE  TRUE 
SEQ 

SEQ  i  =  0  FOR  count 
SEQ 
PAR 

out  !  buffer [output] 
in  ?  buffer]  1-output  ] 
output  :=  1  -  output 

PAR 

out  !  buffer [output] 
internal  ?  buffer [ 1-output ] 
output  :=  1  -  output 


— {((  Formatter 

PROC  Formatter  (  CHAN  OF  ANY  synch,  out, 

[2] [64]  INT  input. buffer  ) 

-- [ { (  variables 

[2] [64] [4]  BYTE  b.in  RETYPES  input. buffer  : 
[64] [2]  BYTE  buffer  : 

[64*2]  BYTE  bufferl  RETYPES  buffer  : 

INT  in.ptr  : 


"secondbu.occ 


K 
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WHILE  TRUE 
SEQ 

— {{{  form  message  in  buffer 
SEQ 

synch  ?  in.ptr 

source  IS  input .buffer [in.ptr]  : 

INT  p  : 

SEQ 

p  :=  0 

SEQ  i  =  0  FOR  64 
INT  store  : 

SEQ 

store  :=  source(i]  »  shift 
— {((  check  for  zeroing  store 
IF 

store  =  0 
IF 

source [i]  <>  0 
store  :=  1 
TRUE 

store  :=  128 

TRUE 

SKIP 

--in 

buf ferl [p]  :=  BYTE  store 

buf ferl [p+1]  :=  BYTE  store 

p  :=  p  +  2 

—  111 

out  !  buffer 

--111 

SEQ 

IF 

position  <  8 

count  :=  7  -  position 
TRUE 

count  :=  15  -  position 
PRX  PAR 
PAR 

Receiver (  in,  synch,  input. buffer  ) 

Extractor (  internal,  fromNext,  toPrev,  count  ) 
Formatter (  synch,  internal,  input. buffer  ) 
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6.2.1.21.  PROC  SP  (Signal  Processing)  "sp.occ" 

PROC  SP  (  CHAN  OF  ANY  in,  out,  fromPrev,  toPrev,  fromNext,  toNext, 

VAL  INT  position  ) 

♦INCLUDE  "s  header. inc" 


—  { ( { 

constants 

VAL 

packet . length 

IS 

8  : 

VAL 

num. packets 

IS 

(128  *  8)  /  packet . length 

VAL 

fraction . bits 

IS 

3  : 

VAL 

tolerance 

IS 

4  : 

— }  1  } 

— {{{  ProcessFrame 

PROC  ProcessFrame  (  CHAN  OF  ANY  in,  out, 

VAL  INT  lower . threshold,  upper . threshold, 
[128] [8]  INT  Gain,  Offset, 

INT  max. data,  max. row,  max. col  ) 


— { { {  constants 

VAL  l.thr  IS  lower . threshold  <<  fraction . bits  : 

VAL  u.thr  IS  upper . threshold  «  f raction . bits  : 

— } }  } 

— { { {  ProcessRow 

PROC  ProcessRow  (  [packet . length]  INT  data,  gain,  offset,  VAL  INT 
row  ) 


SEQ  i  =  0  FOR  packet . length 
INT  value  : 

SEQ 

value  :=  (data[i]  TIMES  gain[i])  +  offset [i] 
IF 

value  <  l.thr 
data  [i]  :=  0 
value  >  u.thr 

data[i]  :=  upper . threshold 
TRUE 

data[i]  :  =  value  >>  fraction .bits 
— { ( (  find  hot  spot 
IF 

data[i]  >  max. data 
SEQ 

max. data  :=  data[i] 
max. row  :=  row 
max. col  :=  i 

TRUE 

SKIP 

--1M 


--Mi 

— { ( {  retype  array  to  packet . length 
[ num. packets] [packet . length]  INT  p.gain 
[num. packets] [packet . length]  INT  p. offset 
--)}} 

— { { {  variables 

INT  in.ptr,  out.ptr,  process. ptr,  temp  : 

[ 3 ] [packet . length]  INT  buffer  : 

PLACE  buffer  IN  WORKSPACE  : 

—  i  M 
SEQ 

— { { {  initialize 
in . pt r  : =  2 
process. ptr  :=  1 


RETYPES  Gain 
RETYPES  Offset 
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out.ptr  :=  0 

max. data  :=  -1 
max. row  :=  0 
max. col  :=  0 
—  H  ( 

— { { {  get  first  row 
in  ?  bufferfO] 

--} }  ) 

— {{{  get  second  row  and  process  first  row 
PRI  PAR 

in  ?  buffer [ 1 ] 

ProcessRow(  buffer[0],  p.gain[l],  p.offset[l],  0  ) 

—  >  }  > 

— ( ( {  do  middle  rows 

SEQ  row  =  1  FOR  (num. packets-2) 

SEQ 

PRI  PAR 
PAR 

in  ?  buf fer [ in . ptr ] 
out  !  buf fer [out .ptr] 

ProcessRow(  buf fer [process .ptr] ,  p.gain[row],  p . of f set [ row] , 

row  ) 

temp  :=  out.ptr 
out.ptr  :=  process. ptr 
process. ptr  :=  in. ptr 
in. ptr  :=  temp 
— }  )  ) 

— {{(  process  last  row 
VAL  i  IS  num. packets  -  1  : 

PRI  PAR 

out  !  buf fer [out .ptr] 

ProcessRow(  buf fer [process .ptr] ,  p.gainfi],  p. offset [i] ,  i  ) 

—  m 

— {{{  output  last  row 
out  !  buffer [  process. ptr  ] 

— }  }  } 

— {{(  determine  actual  max. col  position 
max. col  :=  (max. col  «  4)  +  position 

—  111 

--}  }  } 

— ({(  Ca librateFrame 

PROC  CalibrateFrame  (  CHAN  CF  ANY  in,  out, 

VAL  INT  c. frame,  c. level, 

[128] [8]  INT  Gain,  Offset  ) 

--({(  global  variables 

INT  DO,  Dl,  dO,  delta. D,  half. range  : 

—  m 

— { { {  ProcessRow 

PROC  ProcessRow  (  [packet . length]  INT  data,  gain,  offset  ) 

IF 

c . frame  =  0 
gain  :=  data 
TRUE 


SEQ  i  =  0  FOR 

packet 

.  length 

INT  previou 

3  .  p  i::el 

,  delta.p 

SEQ 

p  revicus . 

pixel  : 

=  ga i n  [ 1  ] 

delta.p  : 

=  data  [ 

i  ]  -  c  r  e  v 

delta. c  <  tolerance 
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— { { {  dead  pixel 
SEQ 

gain [i]  :=  0 

offset [i]  :=  (previous .pixel  -  tolerance)  << 

fraction .bits 

—  n } 

TRUE 

— { { {  normal  pixel 
SEQ 

gainfi]  :=  delta. D  /  delta. p 

offset [i]  :=  (dO  -  (gain[i]  TIMES  previous .pixel) )  + 

half. range 

—  m 


--}  )  ) 

— ({{  retype  array  to  packet . length 

[num. packets ] (packet . length]  INT  p.gain  RETYPES  Gain 

(num. packets]  [packet . length]  INT  p. offset  RETYPES  Offset 

— }  n 

— ( { (  variables 

INT  in.ptr,  out.ptr,  process. ptr,  temp  : 

[3] [packet . length]  INT  buffer  : 

PLACE  buffer  IN  WORKSPACE  : 

—  m 

SEQ 

— {{{  set  up  calibration 
IF 

c. frame  =  0 
DO  :=  c. level 
TRUE 
SEQ 

D1  :=  c. level 

delta. D  :=  (D1  -  DO)  <<  fraction . bits 

dO  :=  DO  <<  fraction .bits 

half. range  :=  1  <<  ( fraction .bits-1) 

— }  }  ) 

in.ptr  :=  2 
process. ptr  :=  1 
out.ptr  :=  0 
— ( ( (  get  first  row 
in  ?  buffer[0] 

— )  ]  } 

— (([  get  second  row  and  process  first  row 
PRI  PAR 

in  ?  buffer [1] 

ProcessRow(  buffer[0],  p.gain[lj,  p.offset[l]  ) 

-in 

--( ( {  do  middle  rows 

SEQ  row  =  1  FOR  (num.oackets-2) 

SEQ 

PRI  PAR 
PAR 

in  ?  buffer [in.ptr] 
out  !  buffer [out .ptr] 

P  rocessRow (  buffer [process .ptr]  ,  p.gain[row],  p . of f set [ row] 

temp  :=  out.ptr 
out.ptr  :=  process. ptr 

process .pt r  in.ptr 
in.ptr  :=  temp 
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out  !  buffer [out .ptr] 

ProcessRow(  buffer [process .ptr] ,  p.gain[i],  p.offset[i]  ) 

—  m 

— {{(  output  last  row 
out  !  buffer[  process. ptr  ] 

—  m 


— } }  t 

— { { {  variables 

--({{  command  variables 

BYTE  length  : 

[max. message]  INT  message  : 
command  IS  message [0]  : 

params  IS  [message  FROM  1  FOR  (max. message-1) ]  : 

— )  }  > 


[123] [8]  INT  Gain,  Offset  : 

INT  max. data,  max. row,  max. col  : 

}  ) 

SEQ 

— { ( {  initialize 
— }  }  ) 

WHILE  TRUE 
SEQ 

--{{(  get  command  and  pass  on 
fromPrev  ?  length: ;message 
IF 


Offset, 


position  <  15 

toNext  !  length : :message 
TRUE 
SKIP 
— }  }  } 

— {{{  process  command 
CASE  command 

— { { {  c . sp . frame 
c . sp . frame 
IF 

params [0]  <  0 
SEQ 

ProcessFrame (  in,  out,  params [2],  params [3], 

max. data,  max. row,  max. col  ) 

— {{{  return  hot  spot 
IF 


position  <  15 

INT  next. data,  next . row,  next. col  : 

SEQ 

fromNext  ?  next. data;  next . row;  next. col 

t  TT 
i.  r 


next. data  >  max. data 

toPrev  !  next. data;  next. row;  next. col 
TRUE 

toPrev  !  max. data;  max. row;  max. col 

TRUE 

toPrev  !  max. data;  max. row;  max. col 


—  I  i 


TRUE 


lalibrat-Frame  (  ir.,  out,  params  [C],  param 


>0  ) 


—  m 

— !  :■  i 


Gain, 


mu 
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6.2.1.22.  PROC  SPController  "spcontro.occ" 

PROC  SPController  (  CHAN  OF  ANY  f romController,  toController, 

f romGuidance,  toGuidance, 
f romGraphics,  toGraphics,  fromSP,  toSP  ) 


PAR 


--{({  transfer  shift  command  from  guidance  to  controller 
INT  command,  shift. x,  shift. y  : 


SEQ 

WHILE  TRUE 
SEQ 

f romGuidance  ?  command;  shift. x;  shift. y 
toController  !  command;  shift. x;  shift. y 

—  in 

— {{{  control  SP  and  give  guidance  commands 
#INCLUDE  "s_header . inc" 

— ( { {  variables 
BYTE  length  : 

[max .message]  INT  message  : 
command  IS  message [0]  ; 

params  IS  [message  FROM  1  FOR  (max. message-1) ]  : 


—  Hi 
SEQ 

WHILE  TRUE 
SEQ 


f romController  ?  length ; :message 
IF 


— ({{  Guidance  commands 
(command  >=  1280)  AND  (command  <  1536) 
toGuidance  !  length; :message 
— )}) 

— (({  Track  Display  commands 
(command  >=  1536)  AND  (command  <  1792) 
toGraphics  !  length : :message 

—  m 

— ( { {  c.sp. frame 
command  =  c.sd. frame 
SEQ 

toSP  !  length : :message 
IF 


params [0]  <  0 

— { { {  regular  frame 

INT  max. data,  max. row,  max. col  : 

SEQ 


params [4];  params [5]; 
FROM  3  FOR  6] 

FROM  4  FOR  4] 


fromSP  ?  max. data;  max. row;  max. col 

toGuidance  !  12 (BYTE) ;  c .guidance . run;  1; 

max. col;  max. row;  [params 

toGraphics  !  6 (BYTE) ;  c . display . inf o ;  1;  [params 


TRUE 


— {({  calibration  frame 
SEQ 

toGraphics  6  (BYTE);  c .  display .  inf  o;  1; 

[params  FROM  4  FOR  4] 


— { > (  c . read. graphics 
command  =  c . read . grachics 
INT  buf Length  : 
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INT  number. of .transfers  : 

[maxGraphicBuf fer] BYTE  graphicsBuf fer  : 

SEQ 

toGraphics  !  length: :message 
fromGraphics  ?  number .of .transfers 
toController  !  number .of .transfers 
SEQ  i  =  0  FOR  number . of .transfers 
SEQ 

fromGraphics  ?  bufLength: :graphicsBuf fer 
toController  !  bufLength: :graphicsBuf fer 

—  m 

—  in 
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6.2.1.23.  PROC  Target 

PROC  Target  <  CHAN  OF  ANY  fromDown,  to Down,  fromUp,  toUp, 

VAL  INT  column  .position,  row. position  ) 

♦INCLUDE  "s_header . inc" 

— { { {  constants 

VAL  first. row  IS  row. position  TIMES  16  : 

VAL  next . first . row  IS  first. row  +  16  : 

— }  }  } 

-- { { {  SendFrame 

PROC  SendFrame  (  CHAN  OF  ANY  in,  out,  [16] [8]  REAL32  target, 
VAL  INT  shift. y,  shift. x  ) 

— { { {  variables 

INT  start. col,  crossbar . of f set  : 

INT  total. in,  diff  : 

INT  output  : 

[1C] [8]  INT  buffer  : 

[2]  [8]  INT  b  : 

— }  ! ) 

SEQ 

--{((  calculate  values 
crossbar . of fset  :=  shift. x  /\  12 
start. col  :=  shift. x  >>  4 
IF 

column . position  <  crossbar . of fset 
start. col  :=  start. col  +  1 
TRUE 
SKIP 

total. in  :=  (7  -  row. position)  «  4 
— })) 

— {{{  shift  target  data 

[16]  [8*4]  BYTE  b. buffer  RETYPES  buffer  : 

[16]  [8*4]  BYTE  b. target  RETYPES  target  : 

VAL  start  IS  start. col  «  2  : 

VAL  length  IS  (8  -  start. col)  <<  2  : 

SEQ 

IF 

start  <>  32 

MOVE 2D (  b. target,  start,  0,  b. buffer,  0,  0,  length, 
TRUE 
SKIP 
IF 

start. col  <>  0 

MOVE 2D (  b. target,  0,  0,  b. buffer,  length,  0,  start, 
TRUE 
SKIP 

—  Ml 

--(([  send  target  data 

diff  :=  shift. y  -  (row. position  «  4) 

IF 

row. position  =  7 

--(({  nc  one  is  above  you 

C£0 


diff  <  1 
diff  :=  0 
TRUE 
SKI? 


"target.occ" 


16  ) 


16  ) 
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SEQ  i  =  diff  FOR  (16-diff) 
out  !  buffer  [i] 

SEQ  i  =  0  FOR  diff 
out  !  buffer[i] 

— }  }  } 
diff  <  0 

--({{  start  row  is  below 
SEQ 
PAR 

in  ?  b [ 0 ] 

SEQ  i  =  0  FOR  16 
out  !  buffer[i] 
output  :=  0 

SEQ  i  =  0  FOR  (total. in  -  1) 

SEQ 

PAR 

in  ?  b  [1-output] 
out  !  b [output] 
output  :=  1-output 
out  !  b[outDut] 

—  m 

(diff  -  16)  <=  0 

--{{{  start  row  is  in  the  middle 
SEQ 
PAR 

in  ?  b [ 0 ] 

SEQ  i  =  diff  FOR  16-diff 
out  !  buffer[i] 
output  :=  0 

SEQ  i  =  0  FOR  (total,  in  -  1) 

SEQ 

PAR 

in  ?  b(l-output] 
out  !  b [output] 
output  :=  1-output 
out  !  b [output] 

SEQ  i  =  0  FOR  diff 
out  !  buffer[i] 

— )  }  1 
TRUE 

--{{(  start  row  is  in  middle  of  processor  further  down 
SEQ 

in  ?  b [ 0 ] 
output  :=  0 

SEQ  i  =  0  FOR  (127  -  shift. v) 

SEQ 

PAR 

in  ?  b[l-output] 
out  !  b [output] 
output  :=  1-output 
out  !  b [output] 

PAR 

in  ?  bEoutout] 

SEQ  i  =  0  FOR  16 
out  !  buffer[i] 

SEQ  i  =  0  FOR  ((total. in  +  shift. y)  -  129) 

S£r 

PAR 


Final  Report 


—  H  } 

— {{{  GetTargetRow 

PROC  GetTargetRow  (  [16] [8]  REAL32  Target,  VAL  INT  row,  [128]  INT  data 


[]  REAL32  r . data  RETYPES  data  : 

IF 

(row  >=  first. row)  AND  (row  <  next . first . row) 

SEQ  i  =  0  FOR  8 

Target [  row-first . row  ][  i  ]  :=  r.data[  ( i *  1 6 )  + 

column .position  ] 

TRUE 

SKIP 


—  H  1 

— ( ( {  variables 
BYTE  length  : 

[max .message]  INT  message  : 
command  IS  message [0]  : 

params  IS  (message  FROM  1  FOR  (max  .message-1 )  ]  : 

[max. frames] [16] [16] [8]  REAL32  Frame  : 

—  1  }  } 

SEQ 

--(((  initialize  last  target  frame 
SEQ  r  =  0  FOR  64 
SEQ  c  =  0  FOR  8 
SEQ  o=0  FOR  4 
INT  column,  row  : 

REAL32  value  : 

SEQ 

— {{(  determine  col  value 

column  :=  ( ( (c  6)  +  O)  +  (column .position  «  2) )  +  1 
IF 

column  <  256 
SKIP 
TRUE 

column  :=  513  -  column 

—  m 

--{{{  determine  row  value 

row  :=  ((first. row  «  2)  +  r)  +1 

IF 

row  <  256 
SKIP 
TRUE 

row  :=  513  -  row 
—  Ml 

value  :=  REAL32  ROUND (  (row  *  column)  ) 

Frame  (max.  frames-1]  [(  (r/\3)  «2) +o]  [r»2]  [c]  :=  *ralue 
i ) 

WHILE  TRUE 
SEQ 

--{((  get  command  and  send  up 
fromDown  ?  length : :message 
IF 

row. position  <  7 

toUp  !  length :: message 
TRUE 
SKIP 

—  :  M 

CASE  command 

--{{{  c. set .target 
: . zet . target 
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SendFrame (  fromUp,  toDown,  Frame[  paramsfO]  ][  paramsfl]  ], 
params[2],  params[3]  ) 

—  m 

— { { {  c. target. row 
c . target . row 

GetTargetRow (  Frame[  params[0]  ][  params[l]  ],  params[2], 
[pa rams  FROM  3  FOR  128]  ) 


— }  }  ) 
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6.2.1.24.  PROC  TargetLead  "targetle.occ" 

PROC  TargetLead  (  CHAN  OF  ANY  fromUp,  toUp,  toDown, 

fromPrev,  toPrev,  fromNext,  toNext, 

VAL  INT  column .position  ) 

♦INCLUDE  "s_header . inc" 

— { { {  constants 
VAL  row. position  IS  0 

VAL  first. row  IS  0 

VAL  next . first . row  IS  16 

— }  )  1 

—  {{{  SendFrame 

PROC  SendFrame  (  CHAN  OF  ANY  in,  out,  [16] [8]  REAL32  target, 

VAL  INT  shift. y,  shift. x  ) 

— { { {  variables 

INT  start. col,  crossbar .offset  : 

INT  total. in,  diff  : 

INT  output  : 

[16] [8]  INT  buffer  : 

[2]  [8]  INT  b  : 

—  m 

SEQ 

— {{(  calculate  values 
crossbar . of fset  :=  shift. x  /\  15 
start. col  :=  shift. x  »  4 
IF 

column. position  <  crossbar .offset 
start. col  :=  start. col  +  1 
TRUE 
SKIP 


total. in  :=  (7  -  row. position)  <<  4 
— }  1  1 

— {{{  shift  target  data 

[16]  [8*4]  BYTE  b. buffer  RETYPES  buffer  : 

[16]  [8*4]  BYTE  b. target  RETYPES  target  : 

VAL  start  IS  start. col  <<  2  : 

VAL  length  IS  (8  -  start. col)  «  2  : 

SEQ 

IF 

start  <>  32 

M0VE2D (  b. target,  start,  0,  b. buffer,  0,  0,  length,  16  ) 
TRUE 
SKIP 
IF 

start. col  <>  0 

MOVE 2D (  b. target,  0,  0,  b. buffer,  length,  0,  start,  16  j 
TRUE 
SKIP 

—  Ml 

--({{  send  target  data 

diff  :=  shift. y  -  ( row . posit  ion  <<  4) 

IF 

row. position  =  7 

-- ( ( (  no  one  is  above  you 
SEQ 
IF 

diff  <  1 
diff  :=  0 
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TRUE 

SKIP 

SEQ  i  =  diff  FOR  (16-diff) 
out  !  buffer [i] 

SEQ  i  =  0  FOR  diff 
out  !  buffer[i] 

— }  )  } 
diff  <  0 

— {({  start  row  is  below 
SEQ 

D  * 

in  ?  b [0] 

SEQ  i  =  0  FOR  16 
out  !  buffer[i] 
output  :=  0 

SEQ  i  =  0  FOR  (total. in  -  1) 

SEQ 

PAR 

in  ?  b[ 1-output] 
out  !  b [output] 
output  :=  1-output 
out  !  b [output] 

—  m 

(diff  -  16)  <=  0 

— ({(  start  row  is  in  the  middle 
SEQ 
PAR 

in  ?  b [0] 

SEQ  i  =  diff  FOR  16-diff 
out  !  buffer[i] 
output  :=  0 

SEQ  i  =  0  FOR  (total. in  -  1) 

SEQ 

PAR 

in  ?  b[l— output] 
out  !  b [output] 
output  :=  1-output 
out  !  b [output] 

SEQ  i  =  0  FOR  diff 
out  !  buffer[i] 

— }  ]  } 

TRUE 

— (({  start  row  is  in  middle  of  processor  further  down 
SEQ 

in  ?  b [ 0 ] 
output  :=  0 

SEQ  i  =  0  FOR  (127  -  shift. y) 

SEQ 

PAR 

in  ?  b[l-output] 
out  !  b[output] 
output  :=  1-output 
out  !  b [output] 

PAR 

in  ?  b (output] 

SEQ  i  =  0  FOR  16 
out  !  buffer[i] 

SEQ  i  =  0  FOR  ((total. in  +  shift. y)  -  129) 

SEQ 

PAR 

in  ?  b [ 1 -cutout ] 
cut  :  b [output] 
output  :=  1-cotput 
out  !  b [output ' 
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— }  }  ) 

— }  1  } 

}  ) 

— {{{  GetTargetRow 

PROC  GetTargetRow  (  [16] [8]  REAL32  Target,  VAL  INT  row,  [128]  INT  data 


[]  REAL32  r .data  RETYPES  data  : 

IF 

(row  >=  first. row)  AND  (row  <  next . first . row) 

SEQ  i  =  0  FOR  8 

Target!  row-first . row  ]{  i  ]  :  =  r.data[  (i*16) 

column .position  ] 

TRUE 

SKIP 


— }  )  ) 

— { { {  variables 
BYTE  length  : 

[max .message]  INT  message  : 
command  IS  message [0]  : 

params  IS  [message  FROM  1  FOR  (max .message-1 ) ]  : 

[max. frames] [16] [16] [8]  REAL32  Frame  : 

—  >  > } 

SEQ 

--{((  initialize  last  target  frame 
SEQ  r  =  0  FOR  64 
SEQ  c  =  0  FOR  8 
SEQ  o=0  FOR  4 
INT  column,  row  : 

REAL32  value  : 

SEQ 

— (({  determine  col  value 

column  :=  ( ( (c  «  6)  +  o)  +  (column .position  <<  2) )  +  1 
IF 

column  <  256 
SKIP 
TRUE 

column  :=  513  -  column 
— }  }  } 

--(((  determine  row  value 

row  :=  ((first. row  <<  2)  +  r)  +1 

IF 

row  <  256 
SKIP 
TRUE 

row  :=  513  -  row 

—  n ) 

value  :=  REAL32  ROUND (  (row  *  column)  ) 

Frame  [max.  frames-1]  [(  (r/\3)  <<2)  -t-o]  [r»2]  [c]  :=  value 

—  n ) 

WHILE  TRUE 
SEQ 

--({{  get  command  and  send  up  and  accross 

fromPrev  ?  length : :message 

PAR 

toUp  !  length : -.message 
IF 

column .position  <  15 

toNext  !  length : :message 
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—  in 

CASE  command 

— { { {  c . set .target 
c . set .target 
SEQ 

SendFrame (  fromUp,  toDown,  Frame [  params [0] 

pa rams  12],  pa rams [3]  ) 

IF 

column .position  =  15 
toPrev  !  0  (BYTE) 

TRUE 

BYTE  synch  : 

SEQ 

fromNext  ?  synch 
toPrev  !  synch 

—  m 

— ({{  c. target. row 
c . target . row 

GetTargetRow(  Frame [  params[0]  ][  params[l]  ], 
[params  FROM  3  FOR  128]  ) 

—  in 


]  [  params [ 1 ] 


params [2] , 
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6.2.1.25.  PROC  TrackDisplay 

PROC  TrackDisplay  (  CHAN  OF  ANY  fromSP,  toSP, 

fromPrev,  toPrev,  fromNext, 

— { { {  libraries 
♦INCLUDE  "s_header . inc" 

♦INCLUDE  "g_header . inc" 

♦INCLUDE  "crtc.inc" 

♦USE  "convert . lib" 

♦USE  "graphics . lib" 

--♦USE  "extrio. lib" 

--}  )  I 


--{{{ 

display  constants 

VAL 

width 

IS 

640 

VAL 

height 

IS 

480 

VAL 

line . frequency 

IS 

60000 

VAL 

frame . rate 

IS 

90 

VAL 

pixel . clock 

IS 

64000000 

VAL 

interlace 

IS 

FALSE 

—  n  i 

—  ( ( { 

fonts 

♦INCLUDE  "sys6 . inc" 

—  H  1 

--([{  place  system  variables 
[(20*655361+1280]  BYTE  screen. map  : 

PLACE  screen. map  AT  screen . int . address  : 


INT  DisplayStart  : 

PLACE  DisplayStart  AT  DisplayStart . address  : 


INT  Event Mode  : 

PLACE  EventMode  AT  EventMode . address  : 

INT  SysReady  : 

PLACE  SysReady  AT  (#00080000  ><  (MOSTNEG  INT))  »  2  : 


INT  Ready  : 

PLACE  Ready  AT  Ready . address  : 

—  m 

--(((  set  up  multiple  screens 

VAL  screen .of fset  IS  [  ♦OOOOO,  #50000,  ♦A0000,  ♦F0000  ] 


VAL  screen . address  IS  [  #00000,  #14000,  #28000,  #3C000  ] 


— (({  place  Event  channel 


CHAN 

OF  ANY  Evenc 

PLACE 

Event  AT  8  : 

—  m 

--m 

constants 

VAL 

screen . width 

IS 

640  : 

VAL 

screen . height 

IS 

480  : 

VAL 

screen  .size 

IS 

screen . width 

VAL 

char . width 

IS 

18  : 

VAL 

_ ill 

cha  r .  height 

IS 

33  : 

III 

—  (  (  f 

procs 

--1  1  f 

spect  rum 

PRCC 

spectrum  (  CH 

AN  OF 

ANY  out  ) 

*  screen . height  : 


"trackdis.occ" 
toNext  ) 
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SEQ 

SEQ  i  =  0  FOR  64  —  blue  to  red  scale  for 

1  to  63 


set. colour  (  out. 

o, 

if  if 

o, 

31-  (i»l) 

) 

SEQ  i  =  0  FOR  64 

—  adding  green 

and 

set. colour (  out, 

0, 

64  +  i, 

63, 

if  i  ) 

for  64 

to 

127 

SEQ  i  =  128  FOR  128 

--  green  for 

128 

-255 

set. colour  (  out. 

0, 

if  0, 

63, 

0  ) 

set.colour(  out,  0, 

0, 

o,  o, 

0 

) 

—  black  for 

0 

set. colour  (  out,  0, 

128,  30, 

30 

,  30  ) 

—  grey  for 

128 

— )  }  } 

--{{{  center . string 

PROC  center . string  (  []  I NT  window,  []  BYTE  screen, 

VAL  INT  cx,  sy,  VAL  []  BYTE  string, 
VAL  []  INT  font  ) 


INT  width  : 

SEQ 

string . width (  font,  string,  width  ) 
window[  w. cursor. y  ]  :=  sy 
window [  w. cursor. x  ]  : =  cx  -  (width  »  1) 

write . string (  window,  screen,  string,  font  ) 

—  m 

— { { {  place . string 

PROC  place. string  (  []  INT  window,  []  BYTE  screen, 

VAL  INT  sx,  sy,  VAL  []  BYTE  string, 
VAL  []  INT  font  ) 

SEQ 

window[  w. cursor. y  ]  :=  sy 
window [  w. cursor. x  ]  :=  sx 

write . string (  window,  screen,  string,  font  ) 

-- }  }  } 

— { { {  EventProc 

PROC  EventProc  (  CHAN  OF  ANY  Event,  in  ) 

INT  synch,  address  : 

WHILE  TRUE 
SEQ 

in  ?  address 
Ready  :=  1 
Event  ?  synch 
DisplayStart  :=  address 
Ready  :=  0 

—  1M 

--{((  3uf fer 

PROC  Buffer  (  CHAN  OF  ANY  in,  out  ) 

INT  temp  : 

SEQ 

WHILE  TRUE 
SEQ 

in  ?  temp 
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VAL  INT  start. x,  start. y,  size.y  ) 

SEQ 

string. width (  font,  stringl,  window [  w. start. x  ]  ) 
string. width (  font,  string2,  window [  w.size.x  ]  ) 
window[  w. start. x  ]  :=  window!  w. start. x  ]  +  start. x 
window!  w.size.x  ]  :=  window[  w.size.x  ]  +  1 
window!  w. start. y  ]  :=  start. y 

window!  w. size.y  ]  :=  size.y  +  1 

window!  w. start  ]  :=  (screen . width  *  start. y)  +  window!  w. start. x 

window!  w.size  ]  :=  screen. width  *  window!  w. size.y  ] 

window!  w. pixels . line  ]  :=  screen. width 

window!  w. foreground. color  ]  :=  255 

window!  w. background. color  ]  :=  0 

windowt  w. cursor. x  ]  :=  0 

window!  w. cursor. y  ]  :=  0 

--}}  ) 

— ( ( {  display . text 

PROC  display. text  (  []  INT  window,  []  BYTE  screen, 

VAL  []  BYTE  text,  VAL  []  INT  font  ) 

s  IS  [screen  FROM  window!  w. start  ]  FOR  window!  w.size  ]]  : 

SEQ 

window!  w. cursor. x  ]  :=  0 

window!  w. cursor. y  ]  :=  0 

write . string (  window,  s,  text,  font  ) 

-Ml 

--({{  place . numbers 

PROC  place. numbers  (  [][]  BYTE  screen,  [][][]  BYTE  char. array, 

VAL  (]  BYTE  string, 

VAL  INT  start. x,  start. y,  size.x,  size.y  ) 

INT  x  : 

SEQ 

x  :=  start. x 

SEQ  i  =  0  FOR  SIZE  string 
VAL  char  IS  INT  string[i]  : 

SEQ 

IF 

--{((  display  space  character 
char  =  (INT  '  ') 

VAL  source  IS  char. array [11]  : 

MOVE2D (  source,  0,  0,  screen,  x,  start. y,  size.x,  size.y  ) 

—  m 

--(!(  display  decimal  character 
char  =  (INT  ' . ' ) 

VAL  source  IS  char . array [ 10]  : 

MOVE2D (  source,  0,  0,  screen,  x,  start. y,  size.x,  size.y  ) 
--))  1 

--( ( i  display  number  character 
TRUE 

VAL  source  IS  char . array [char  -  (INT  '0')]  : 

MOVE 2D (  source,  0,  0,  screen,  x,  start. y,  size.x,  size.y  ) 
—  I ) 

x  :=  x  +  size.x 


MAX 

FUNCTION  MAX  (  VAL  REAL32  a,  b  ) 

*5  -»  r- 


]  n 
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VALOF 

IF 

a  >  b 
r  :  =  a 
TRUE 

r  :=  b 
RESULT  r 

—  H  } 

--{{{  MIN 

REAL 3 2  FUNCTION  MIN  <  VAL  REAL32  a,  b  ) 

REAL32  r  : 

VALOF 

IF 

a  <  b 
r  :=  a 
TRUE 

r  :=  b 
RESULT  r 

—  Mi 

— { { {  IMAX 

INT  FUNCTION  IMAX  (  VAL  INT  a,  b  ) 

INT  r  : 

VALOF 

IF 

a  >  b 
r  :  =  a 
TRUE 

r  :=  b 
RESULT  r 

">}  i 

--{({  IMIN 

INT  FUNCTION  IMIN  (  VAL  INT  a,  b  ) 

INT  r  : 

VALOF 

IF 

a  <  b 
r  :  =  a 
TRUE 

r  :  =  b 
RESULT  r 

“Ml 

--M) 

-- ( { {  variables 

(w. length]  INI  window  : 

[ 4 ] [w . length]  INT  text. window  : 

[  12  ]  [char  .  height  ]  [char  .  width]  BYTE  numbe 

CHAN  OF  ANY  synch,  synch 1  : 

— }  }  > 

VAL  font  IS  SYS6  : 

SEQ 

-  -  ■  ;  initialize 

set. 3408  (  0,  C,  0,  0,  0  ) 

—  |  { <  set  up  34  0  9 
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— )  }  } 

— {{{  generate  display  table  for  numbers 
[w. length]  INT  window  : 

[12] [char. width*char. height]  BYTE  n  RETYPES  number  : 

SEQ 

SEQ  i  =  0  FOR  12 

SEQ  j  =  0  FOR  char . width*char . height 
n  [i]  [  j  ]  : =  0  (BYTE) 

window  :=  [  0,  char ,width*char. height,  char. width, 

0,  0,  char. width,  char. height,  255,  0,  0,  0  ] 

SEQ  i  =  0  FOR  10 

display . text (  window,  n[i],  [  BYTE (  i+(INT  '0')  )],  font  ) 

display . text (  window,  n[10],  font  ) 

display . text (  window,  n[ll],  "  ",  font  ) 

— )}} 

— {({  initial  display 

[]  INT  int. screen  RETYPES  screen. map  : 

SEQ  i  =  0  FOR  (20*65536) /4 
int . screen [i]  : =  0 

window  :=  [  0,  screen. size,  screen . width,  0,  0, 

screen . width,  screen. height,  255,  0,  0,  0  ] 

screen  IS  [screen. mao  FROM  screen. offset [0]  FOR  screen. size  ] 
SEQ 

— {{{  draw  first  window 


draw. line ( 

window, 

screen, 

31, 

111, 

288, 

111, 

255 (BYTE) 

) 

draw. line ( 

window. 

screen, 

288, 

111, 

288, 

368, 

255 (BYTE) 

) 

draw. line ( 

wind''"  -. 

screen. 

31, 

368, 

288, 

368, 

255 (BYTE) 

) 

draw,  line  (  wir.ac  , 
— } }  } 

— {{(  draw  second 

screen, 

window 

31, 

HI, 

31, 

368, 

255 (BYTE) 

) 

draw,  line 

window. 

screen, 

351, 

111, 

608, 

111, 

255 (BYTE) 

) 

draw. 11  ’  e ( 

window. 

screen, 

608, 

111, 

608, 

368, 

255 (BYTE) 

) 

draw. tine ( 

window. 

screen. 

351, 

368, 

608, 

368, 

255 (BYTE) 

) 

draw . line ( 

window. 

screen. 

351, 

111, 

351, 

368, 

255 (BYTE) 

) 

— .  ) } 

-- ( ( {  draw  text 
SEQ 

center . string (  window,  screen,  320,  1,  "FPA  Seeker  Emulator", 

font  ) 

center . string (  window,  screen,  160,  70,  "Raw  FPA  Image",  font  ) 
center . string (  window,  screen,  480,  70,  "Processed  Image",  font 


place . string (  window,  screen,  0,  400,  "Range:  ",  font  ) 

place . string (  window,  screen,  0,  440,  "Sim  Time:  ",  font  ) 

place . string (  window,  screen,  350,  400,  "Frame  Rate:",  font  ) 

place . string (  window,  screen,  350,  440,  "Frame  Number:",  font  ) 

set . text . window (  text . window[0] ,  "Range:",  "0123456.789",  font, 

16.400,  32  ) 

set . text . window (  text . windowfl] ,  "Sim  Time:  ",  "123.456",  font, 

16.440,  32  ) 

set . text . window (  text .window [2] ,  "Frame  Rate:  ",  "123",  font, 

350.400,  32  ) 

set . text . window (  text . window [3 ] ,  "Frame  Number:  ",  "123",  font, 

350.440,  32  ) 

--{{{  COMMENT  place  initial  numbers 
-- : : : A  00 

--{({  place  initial  numbers 

— [screen. height] 'screen. width]  BYTE  s2  RETYPES  screen  : 

—SEQ 
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--place . numbers  (  s2,  number,  "  0.000", 

text .window [0] [w. start. x], 

text . window [0]  [ w .  start . y] ,  char. width, 

char. height  ) 

— place .numbers (  s2,  number,  "  0.000", 

text . window [ 1] [w. start. x], 

text . window [ 1 ] [w . start . y] ,  char. width, 

char. height  ) 

— place . numbers (  s2,  number,  "  0",  text . window [2 ]  [w. start . x] , 

text .window[2] [w. start .y] ,  char. width, 

char. height  ) 

— place . numbers (  s2,  number,  "  0",  text .window [3 ] [w . start . x] , 

text ,window[3] [w. start .y] ,  char. width, 

char. height  ) 

—  1  }  } 

— }}  1 
— )  )  1 

[screen. map  FROM  screen . of fset [ 1 ]  FOR  screen. size]  :=  screen 

[screen. map  FROM  screen . of fset [2 ]  FOR  screen. size]  :=  screen 

[screen. map  FROM  screen. offset [3]  FOR  screen. size]  :=  screen 

— })} 

set .  B408  (  0,  0,  0,  1,  0  ) 

—  n } 

PRI  PAR 

--(({  synchronize  display  to  event 
PAR 

EventProc(  Event,  synchl  ) 

Buffer (  synch,  synchl  ) 

—  m 

— { { {  run  system 
— { { (  variables 
INT  load  : 

INT  frame  : 

REAL32  range,  time,  rate  : 

INT  len  : 

[12]  BYTE  string,  stringl  : 

— {{{  command  variables 
BYTE  length  : 

[max .message]  INT  message  : 
command  IS  message [0]  : 

params  IS  [message  FROM  1  FOR  max. message-1]  : 

[]  REAL32  r. params  RETYPES  oarams  : 

—  m 

--1H 

SEQ 

load  :=  0 
WHILE  TRUE 
SEQ 

fromS?  ?  length :  .-message 
IF 

— {({  read  graphics  display 
command  =  c . read . graphics 
who  IS  params [0]  : 

CASE  who 

t  rack . display 
—  {{{ 

screen  IS  [screen. map  FROM  DisplayStart  FOR 


i  25 


Final  Report 


toSP  !  screen. width : :s2 [i] 
— ) ) } 

display .palette 
—  { {  { 


SKIP 


— }  }  } 
ELSE 


--{{{  image .display  0  or  1 

INT  number .of .transfers,  bufLength  : 

[maxGraphicBuf fer ] BYTE  graphicsBuf fer  : 

SEQ 

toNext  !  length: :message 
fromNext  ?  number. of .transfers 
toSP  !  number. of .transfers 

SEQ  i  =  0  FOR  number .of . transfers 
SEQ 

fromNext  ?  bufLength: :graphicsBuffer 
toSP  !  bufLength: :graphicsBuf fer 

--}}} 

— )  } ) 

--{{{  otherwise,  normal  processing 
TRUE 


SEQ 
—  {  { 

place 

range,  time,  frame  number,  and  frame  rate 

on  screen 

screen 

IS 

[screen. map  FROM  screen . of f set [ load]  FOR 

screen. size  ] 

range 

IS 

r.params[l]  : 

time 

IS 

r.params[2]  : 

frame 

IS 

pa rams [3] 

rate 

IS 

r. pa rams [4]  : 

SEQ 

IF 

frame  >= 

0 

- 

-{  {  ( 

display  numbers 

[screen. height] [screen. width]  BYTE  s2  RETYPES 

screen  : 


SEQ 

— {{{  range 

range  :=  MAX  (  0.001  (REAL32)  ,  MIN  ( 

9999999 . 999 (REAL32) ,  range  )  ) 

REAL32TOSTRING (  len,  string,  range,  7,  3  ) 
place . numbers {  s2,  number,  [string  FROM  1  FOR 
11] ,  text .window[0] [v. start ,x] , 


32 


text . window [0] [w. start .y] ,  16, 


— i ( {  time 
t ime  :  = 


999 . 999 (REAL32) ,  time  )  ) 


MAX  ( 


0.001 (REAL32 ) , 


7 ] ,  text . winacw [ 1 ] [w. start . x] , 
32  ) 


REAL32TOSTRING (  len,  string,  time,  3,  3  ) 
place . numbers {  s2,  number,  [string  FROM 


text . window [ 1 ] [w. start. y] 


MIN  ( 

FOR 

16, 


—  m 

-- { [ {  frame  rate 


rate  :=  MAX (  0.0<REAL32),  MIN ( 

.UTTC STRING  (  isr.,  string’.,  INT 
[string  FROM  0  FOR  3]  :=  " 

[string  FROM  3-len  FOR  len]  := 


999 . 0 (REAL32 ) , 
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place . numbers ( 

3],  text . window [2]  [w. start . x] , 

32  ) 


s2,  number,  (string  FROM  0 
text . window [2] [w. start . y] , 


16 


FOR 
3]  , 
32  ) 


— }  }  } 

--(((  frame  number 

frame  :=  I MAX (  0,  IMIN (  999,  frame  )  ) 
INTTGSTRING (  len,  stringl,  frame  ) 

[String  FROM  0  FOR  3]  :=  " 

[string  FROM  3-len  FOR  len]  :=  [stringl  FROM 


len] 


place . numbers ( 
text . window [ 3] [w. start. x], 


s2. 


number,  [string  FROM  9  FC 


text . window; 3]  [w. start. y] ,  16 


TRUE 

— (({  clear  the  text  windows 
SEQ  i  =  0  FOR  4 

win  IS  text .window [ i]  : 

clear . window (  win,  [screen  FROM  win[  w. start 

) 

— } )  } 

— }  !  } 

--{({  update  screen 
IF 

pa  rams [0]  =1 

synch  !  screen . address [ load] 

TRUE 

DisplavStart  :=  screen . address [ load] 
load  :«  (load  +1)  A3 


~m 
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6.2.1.26.  PROCXBar  "xbar.occ" 

PROC  XBar  (CHAN  OF  ANY  f romGuidance,  toGuidance) 

#INCLUDE  "s_header . inc" 

— ({{  hardware  values 
VAL  XbarBase  IS  #0303  : 

PORT  OF  INT  xbar . data  : 

PLACE  xbar. data  AT  XbarBase  : 

PORT  OF  INT  xbar. status  : 

PLACE  xbar. status  AT  XbarBase  +  1  : 

CHAN  OF  INT  Event  : 

PLACE  Event  AT  8  : 

—  m 

— { { {  constants 

VAL  local .c. guidance. initialize  IS  0  : 

VAL  local . c . guidance . run  IS  1  : 

—  Ml 

— {{{  procs 

— (({  INT. to. xbar  (VAL  INT  value) 

PRCC  INT. to. xbar  (VAL  INT  value) 

INT  test. status  : 

SEQ 

xbar. status  ?  test. status 
WHILE  (  (test . status  /\  #0001)  =  1) 
xbar. status  ?  test. status 
xbar. data  !  value 

—  m 

--(((  INT. from. xbar  (INT  value) 

PROC  INT. from. xbar  (INT  value) 

INT  signal  : 

SEQ 

Event  ?  signal 
xbar. data  ?  value 

--Mi 

--({(  vector . to . xbar  (VAL  t 1 INT  value) 

PROC  vector . to . xbar  (VAL  (]INT  value) 

SEQ  i  =  0  FOR  SIZE (value) 

INT. to. xbar  (value [i]) 


--{{(  vector . from. xbar  ( [ ] TNT  value) 
PROC  vector,  from,  xbar  (MINT  value) 
SEQ  r  =  0  FOP  SIZE (value! 

INT . from. xbar  (value [i]' 


IQS 
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CASE  ( INT  command) 

—  HI  initialize 
c .guidance . initialize 
INT  dummy  : 

SEQ 

INT .  to .  xjoar  ( local .  c .  guidance  .initialize) 

--{{{  send  and  receive  dummy  values  to  satisfy  crossba 

sequencer 

vector . to . xbar  ([0,  0,  0,  0,  0,  0,  0,  0,  0  ]) 
vector . to . xbar  ([0,  0,  0,  0,  0,  0,  0,  0,  0  ]) 

[2 ] INT  dummy  : 

vector . from. xbar (dummy) 

-ID 

--}  )  ) 

— ( { {  run 
c . guidance . run 

[18] INT  data. vector  :  --REAL32  range,  time  INT16  x,  y, 

--  [3]  REAL.32  seexer.xyz,  target,  xyz 

[2] INT  shift. values  : 

SEQ 

fromGuidance  ?  data. vector 
INT . to . xbar  ( local . c . guidance . run) 
vector . to . xbar  (data . vector) 
vector . from. xbar  (shift . values) 
toGuidance  !  shift. values 
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6.2.2.  Include  files 

— {{{  system  constants 
VAL  bpw  IS  4  : 

VAL  bpw. shift  IS  2  : 

VAL  mint  IS  MOSTNEG  INT  : 


VAL 

screen . int . address 

IS 

(#80100000 

>< 

mint) 

» 

bpw. shift 

VAL 

DisplayStart . address 

IS 

(#00000000 

>< 

mint) 

» 

bpw. shift 

VAL 

InterlaceEnable . address 

IS 

(#000C0000 

>< 

mint) 

» 

bpw. shift 

VAL 

EventMode . address 

IS 

(#00100000 

>< 

mint ) 

» 

bpw. shift 

VAL 

OutputEnable . address 

IS 

(#00140000 

>< 

mint ) 

» 

bpw. shift 

VAL 

Ready . address 

IS 

(#00040000 

>< 

mint) 

>> 

bpw . shift 

—  in 

— { { {  window  constants 
VAL  w. start  IS  0 

VAL  w.size  IS  1 

VAL  w. pixels . line  IS  2 

VAL  w. start. x  IS  3 

VAL  w. start. y  IS  4 

VAL  w.size.x  IS  5 

VAL  w.size.y  IS  6 

VAL  w. foreground. color  IS  7 

VAL  w. background. color  IS  8 

VAL  w. cursor. x  IS  9 

VAL  w. cursor. y  IS  10 

VAL  w. length  ’  IS  11 


— }  }  ) 

— {{{  text  drawing  modes 
VAL  normal. mode  IS  0 


VAL 

foreground . mode 

IS  4 

VAL 

and .mode 

IS  1 

VAL 

or .mode 

IS  2 

VAL 

xor .mode 

IS  3 

—  M  ) 

--({(  window  decisions 

VAL 

in . range 

IS  0  : 

VAL 

part . inrange 

IS  1  : 

VAL 

not . inrange 

IS  2  : 

—  }  )  ) 

--({(  font  file  format 

VAL 

df Version . p 

IS 

0  : 

--2 

VAL 

df Size . p 

IS 

2  : 

—  4 

VAL 

dfCopvright .p 

IS 

6  : 

—  60 

VAL 

dfType . p 

IS 

66 

_ O 

c. 

VAL 

dfPoints . p 

IS 

68 

--2 

VAL 

dfVertRes . p 

IS 

70 

--2 

VAL 

df HorizRes . p 

IS 

72 

--2 

VAL 

df Ascent .p 

I  s 

74 

—2 

VAL 

dflnternalLeading.p  IS 

76 

—  2 

VAL 

df External Lead! 

ng.p  IS 

78 

—2 

v  Ail 

df Italic . p 

IS 

80 

—  1 

VAL 

dfUnderline . p 

IS 

81 

—  1 

VAL 

df StrikeOut . p 

IS 

82 

--1 

VAL 

dfWeight . p 

IS 

83 

—  2 

VAL 

dfCharSet .p 

IS 

85 

--  1 

VAL 

dfPixWid-h .p 

IS 

86 

--2 

*  *  *%  *■ 

dfPixHe ight . p 

T  C 

38 

_ , 

C. 

VAL 

df P i t  chAndF ami 1 

y .  p  IS 

SO 

—  1 

VAL 

dfAvg Width . p 

I  s 

91 

—2 

VAL 

dfMaxWidth . p 

IS 

93 

_ -) 

z_ 

VAL 

df Fi r s tCha r . c 

1 3 

^ 

"1 

VAL 

df LastChar . c 

I S 

96 

--1 
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VAL  dfDefaultChar .p  IS  97  :  — 1 
VAL  dfBreakChar . p  IS  98  :  — 1 
VAL  dfWidthBytes . p  IS  99  :  --2 
VAL  dfDevice.p  IS  101  :  --4 
VAL  dfFace.p  IS  105  :  --4 
VAL  dfBitsPointer.p  IS  109  :  — 4 
VAL  dfBitsOf f set . p  IS  113  :  --4 
VAL  CharTable . p  IS  118  : 

— )  1  } 


--{({  font  specification  offsets 
VAL  f S . PixWidth  IS  0  : 

VAL  f s . PixHeight  IS  1  : 

VAL  f s . FirstChar  IS  2  : 

VAL  fs.LastChar  IS  3  : 

VAL  fs .BitsOffset  IS  4  : 

VAL  fs .sice  IS  5  : 

—  M  } 
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—  { { 

{  misc.  constants 

VAL 

max .message 

IS  205 

VAL 

max . frames 

IS  200 

VAL 

max . sim. frames 

IS  2000 

—  }  } 

} 

—  {  { 

(  commands 

Controller  commands 

parameters  for  commands 

VAL 

c . start . frame 

IS 

0 

frame 

VAL 

c . run .single 

IS 

1 

VAL 

c . run . continuous 

IS 

2 

VAL 

c . frame . rate 

IS 

3  : 

—  start;  frames;  [frames] 

data 

VAL 

c . frame .time 

IS 

4  : 

--  start;  frames;  [frames] 

data 

VAL 

c . frame . range 

IS 

5  : 

—  start;  frames;  [frames] 

data 

VAL 

c . sim. position 

IS 

6 

-- 

variable;  start;  frames;  [] 

data 

VAL 

c . sim. start . frames 

IS 

7 

— 

first. frame;  last. frame 

VAL 

c.test .controller 

IS 

8 

VAL 

c . restart 

IS 

9 

VAL 

c . set . calibration 

IS 

10 

— 

back.levelO;  back.levell; 

— 

sp.levelO;  sp.levell 

GTSEI  commands 

VAL 

c . set . crossbar 

IS 

256 

— 

shift 

_ 

Target  commands 

VAL 

c .  set .target 

IS  512  : 

frame; subpixel; row. shift ; col 

shift 

VAL 

c  .target . row 

IS  513  : 

frame; subpixel; row; [128] data 

VAL 

c.test .target 

IS 

514 

_ 

Background  commands 

VAL 

c . set . background 

IS 

768 

— 

frame 

VAL 

c . background . row 

IS 

769 

-- 

frame;  row;  [128]  data 

VAL 

c .gain . row 

IS 

770 

— 

row;  [128]  data 

VAL 

c .offset . row 

IS 

771 

— 

row;  [128]  data 

VAL 

c .global . scale 

IS 

772 

— 

scale 

VAL 

c . test . background 

IS 

773 

VAL 

c . calibration . frame 

IS 

774 

— 

calibration . level 

Signal  Processing  commands 
VAL  c.sp.  frame  IS 

calibration . level ; 

upper . threshold; 


Guidance  commands 
VAL  c .guidance . initialize 
VAL  c . guidance . set .mode 
VAL  c . guidance . run 
frame . time; 

row . hot . spot ; 


IS  1280  ; 
IS  1281  : 

IS 


1024  :  —  calibration . frame; 

—  lower . threshold; 

—  frame. range;  frame. time; 

—  frame . number ;  frame. rate; 

—  [  6] seeker . target .position 


—  mode 

1282  :  —  FPA;  frame,  range; 

--  column. hot .spot; 

—  [  3] seeker . posit  ion ; 

--  [3] target .position 


Track  Display  commands 
VAL  c . display . info 
t  t  -2 rr.e  .  1  i ~e  ; 


rame . range ; 


1536 


FPA;  f 
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—  frame . number;  frame. rate 


--  command  for  reading  graphics  buffers  or  palette 
VAL  c . read. graphics  IS  2000  :  —  display 

— }}} 

— {{{  commands  for  continuous  frame  operation 
VAL  cc.exit  IS  0  : 

VAL  cc . shift . image  IS  1  :  —  column . shift ;  row. shift 


— 1)1 


—  { { ( 

variables 

in  position 

VAL 

P- 

seeker . x 

IS 

0 

VAL 

P- 

seeker . v 

IS 

1 

VAL 

P- 

seeker . z 

IS 

2 

VAL 

P- 

target . x 

IS 

3 

VAL 

P- 

target .  v 

IS 

4 

VAL 

P- 

target .  z 

IS 

5 

VAL 

P- 

length 

IS 

6 

—  }  )  1 
—  nt 

guidance 

mode 

constants 

VAL 

gif 

.  none 

IS 

0 

VAL 

gm. external 

IS 

1 

VAL 

gm. internal 

IS 

—  i  }  } 

— ( { {  graphics  read  constants 
VAL  image .display . 0  IS  0  : 

VAL  image .display . 1  IS  1  ; 

VAL  track .display  IS  2  : 

VAL  display .palette  IS  3  : 


VAL  maxGraphicBuf fer  IS  640  : 
— }  1  1 


1 
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VAL  SYS6  IS  [#44DA0200, #6F430000, #69727970, #20746867, 


#20296328 

, #37383931 

, #6F535A20 

, #43207466 

, #6F70726F 

,#69746172 

, #6E6F 

#0 

,#o 

,#o 

,  #0 

,#o 

,#o 

, #1200008 

#18012C 

r  #2 

, #90000000 

, #10FF01 

, #10300020 

, #1001000 

, #1F2DFF 

#47602 

,  #4A800 

,  #0 

, #4DAOO 

, #100000 

, #1004DA 

, #10051A 

#10055A 

, #1005 9A 

, #1005DA 

, #10061A 

, #10065A 

, #10069A 

, #10060 A 

# 1 007 1A 

, #10075A 

, #10079A 

, #1007DA 

, #10081A 

, #10085A 

, #10089A 

#1008DA 

, #10091A 

, #10095A 

, #10099A 

, #1009DA 

,  #100A1A 

, #100A5A 

#100A9A 

, #100ADA 
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#8080  , #0  , #0  , #383C1F0F, #38383838, #F0F1C38  , 


, #COCOCOCO, #C0C0C0C0, 
, #0  , #1C1E0F07 , 

,#0  ,#0 

, #FCFC  , #0 


#30383338, #F1F 

,#0  , #0 

, #1C3CF8F0 

, #10101010, 

#10101038, #3C1C1C1C 

, #F0F8  , #0 

,  #0 

, #383C1F0F, 

#F1F3C38  , #0 

, #10100000, #7  OF 

,#0 

,#o 

#1C1C1C1C, #FCFC1C1C 

,  #10101010, #30101010 

, #F0F8 

,#o 

#0  ,  #0 

, #70T0F07  , #0 

, #F070000 

,  #7  0F 

#0  ,  #0 

, #0  ,#808000 

,  #0 

, #80000000, 

#0  ,  #0 

,  #0  , #0 

, #7  0F0F07 

,#o 

#70307QF  , #C0E 

,  #0  , #0 

,  #0 

,#808000  , 

#80000000, #808080 

,#0  , #0 

,  #0 

,#1010000  , 

#7070EQE  ,#1010303 

, #0  , #0 

,  #0 

,  #o 

#8080  , #0 

, #00008080, #E0E0 

,  #0 

,#o 

#0  , #3F3F 

, #3F3F0000, #0 

,  #0 

,  #o 

#0  ,  #0 

, #FCFC  , #FCFCOOOO 

,  #0 

,  #o 

#0  ,  #0 

, #3030707  ,#101 

,  #0 

,#3030101  , 

#0  ,  #0 

,  #0  ,#80800000 

, #EOEOCOCO 

, #E0E07070, 

#0  ,  #0 

,  #0  , # 1C1E0F07 

,  #0 

,#1000000  , 

#7030000  ,#307 

,#C  ,#0 

, #1C3CF8F0 

, #10101010, 

#30308080, #00300000 

, #8000  , #0 

,  #0 

, #1C1E0F07, 

#3B3B3B23, #33393533 

, #1E1C3833, #70F 

,  #0 

,#o 

#FCFC1C1C, #90909090 

, #FCFC9C9C, #0 

, #FQFO 

,  #o 

#E0E07  03  , #10101010, #38333833, #3  8383F3F, #3  83  83838,  #3838 
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#0  ,#0  , #7070E0C0, #38383838, #1C1C1C1C. #1C1CFCFC, #1C1C1C1C, 

#1C1C  ,  #0  ,  #0  ,  #38333F3F, #38383838, #3F3F3838, #38383838, 

#38383838, #3F3F  , #0  , #0  , #3870E0C0, #38383838, #E0C0E070, 

#1C1C3870, #381C1C1C, #E0F0  , #0  , #0  , #383C1F0F, #38383838, 

#38383838, #38383838, #30383838, #F1F  , #0  , #0  ,#1C3CF8F0, 

#0  , #0  , #0  , #3C1COOOO, #F0F8  , #0  ,#0 

#38383F3F, #38383838, #38383838, #38383838, #38383838, #3F3F  , #0 

#0  , #1C3CF8F0,#1C1C1C1C,#1C1C1C1C,#1C1C1C1C,#3C1C1C1C,#F0F8 

#0  ,#0  , #1C1C1F1F, #1C1C1C1C, #1F1F1C1C, #1C1C1C1C, #1C1C1C1C, 

#1F1F  , #0  , #0  , #FCFC  , #0  , #F0F00000, #0 

#0  , #FCFC  , #0  , #0  , #1C1C1F1F, #1C1C1C1C, #1F1F1C1C, 

#1C1C1C1C, #1C1C1C1C, #1C1C  , #0  ,#0  , #FCFC  , #0 

#F0F00000 , #0  , #0  ,#0  ,#0  , #0  , #383C1F0F, 

#38383838, #38383838, #38383838, #30383838, #F1F  , #0  , #0 

#387  8FCE0 , #0  , #FCFC0000, #1C1C1C1C, #1C1C1C1C, #FCFC  , #0 

#0  ,  #38383838,  #38383838,  #3F3F3838, #38383838, #38383838, #3838  , 

#0  ,  #0  , #1C1C1C1C, #1C1C1C1C, #FCFC1C1C, #1C1C1C1C, #1C1C1C1C, 

#1010  , #0  , #0  ,#1010FnF  ,#1010101  ,#1010101  ,#1010101  , 

#1010101  , #F0F  , #0  , #0  , #C0C0F8F8, #C0C0C0C0, #C0C0C0C0, 

#C0C0C0C0, #COCOCOCO, #F8F8  , #0  , #0  , #0  , #0 

#0  , #0  , #1E1C1C00, #70F  ,#0  , #0  , #1C1C1C1C, 

#1C1C1C1C, #1C1C1C1C, #1C1C1C1C, #3C1C1C1C, #F0F8  , #0  , #0 

#38383838, #39393838, #3F3F3B3B, #39393B3B, #38383338, #3838  , #0 

#0  , #70703838, #C0C0E0E0, #8080  , #00008080, #7070E0E0, #3838 

#0  , #0  , #10101010, #10101010, #10101010, #10101010, #10101010, 

#1F1F  ,#0  ,#0  , #0  ,#0  ,#0  ,#0 

#0  , #FCFC  , #0  , #0  , #70706060, #70707878, #77777E7E, 

#71717373, #70707070, #7070  , #0  , #0  ,#7070303  ,#1F1F0F0F, 

#77773F3F, #C7C7E7E7, #7078787  ,#707  , #0  , #0  ,#30303838, 

#3F3F3E3E, #39393B3B, #38383838, #38383838, #3838  , #0  , #0 

#10101010, #10101010, #DCDC9C9C,#7C7CFCFC, #10103030, #1010  , #0 

#0  ,#383C1F0F, #38383833, #38383838, #38383838, #30383838, #F1F  , 

#0  , #0  , #1C3CF8F0, #10101010, #10101010, #10101010, #30101010, 

#F0F8  ,  #0  , #0  ,#38383F3F, #38383838, #3F3F3838, #38383838, 

#38383838,^838  ,  #0  ,  #0  ,  #1C3CF8F0,  #10101010,  #F0FS3C1C, 

#0  ,  #0  ,#0  , #0  ,#0  ,#1C1E0F07, #38383838, 

#38383838, #39383838, #1E1C3839,#70F  , #0  , #0  ,#3878F0E0, 

#10101010, #10101010, #DC1C1C1C, #F878FCDC, #9CDC  , #0  ,#0 

#38383F3F, #38383838, #3F3F3838, #38383939, #38383838, #3838  , #0 

#0  , #1C3CF8F0, #10101010, #F0F83C1C, #E0E0C0C0, #38387070, #1010  , 

#0  , #0  , #381C0F07, #10383838, #103070E  ,#0  ,#30380000, 

#F1F  , #0  , #0  , #1C3CF8F0, #0  , #00800000, #1C3870E0, 

#38101010, #E0F0  , #0  ,#0  , #3033F3F  ,#3030303  ,#3030303  , 

#3030303  ,#3030303  ,#303  , #0  , #0  , #8080F8F8, #80808080, 

#80808080, #80808080, #80808080, #8080  , #0  , #0  ,#38383838, 

#38383838, #38383838, #38383838, #10383838, #70F  , #0  , #0 

ncicicic, #1C1C1C1C,#1C1C1C1C, #1C1C1C1C,#381C1C1C,#E0F0  , #0 

#0  , #38383838, #38383838, #38333838, #E0E1C1C  ,#3030707  ,#101 

#0  , #0  , #E0E0E0E  ,#E0E0E0E  , #E0E0E0E  , #38381010, #E0E07070, 

#0000  ,#0  , #0  , #70707070, #70707070, #39393939, #3F3F3B3B, 

#1E1E1F1F, #1010  , #0  ,#0  ,#7070707  , #87870707, #CECECECE, 

#FEFEEEEE, #30307070, #1010  , #0  , #0  , #10103838, #7070E0E  , 

#1010303  ,#7070303  , #1C1C0E0E, #3838  , #0  , #0  , #1C1C0E0E, 

#70703338, #C0C0E0E0, #7070E0E0, #10103838, #E0E  , #0  ,#0 

#38387070, #E0E1C1C  ,#3030707  ,#1010101  ,#1010101  ,#101  , #0 

#0  ,#E0E0707  , #38381010, #EOE07070, #C0C0C0C0, #C0C0C0C0, #C0C0 

#0  , #0  , #3F3F  , #0  ,#1010000  ,#7070303  , #1C1C0E0E, 

#3F3F  ,#0  , #0  , #1C1CFEFE, #70703838, #C0C0E0E0, #8080 

#0  ,  #FEFE  ,#0  ,#0  ,#7070707  ,#707070"?  ,#7070707  , 

#707070?  ,#7070707  ,#707  , #0  , #0  , #F0F0  , #0 

*0  ,  #0  ,  #0  , #F0F0  ,#0  , #0  ,#38387070, 

#ECS1C1C  ,#3030707  ,#101  , #0  , #0  , #0  , #0 

#0  , #0  , #80800000, #E0E0C0C0, #38387070, #1C1C  , #0 

#0  ,#707  , #0  , #0  , #0  , #0  ,#707 
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#0 

,  #0  ,#7070F0F0, #70707070 

, #70707070 

,  #70707070, #70707070 

#F0F0 

,  #0  , #0  ,#3030101 

, #E0E07  07 

, #1C1C  , #0 

#0 

,#0  ,#0  ,#0 

, #E0E0C0C0 

, #38387070, #1C1C 

#0 

,#0  ,#0  ,#0 

,#0 

,#0  ,#0 

#0 

,#0  ,#0  ,#0 

,  #0 

, #7F7F  , #0 

#0 

,#0  , #0  , #0 

,#o 

,#0  , #FEFE 

#3010000 

,#1030303  , #0  , #0 

,#0 

,#0  ,#0 

#0 

, #80C0E060, #C0E0E0C0 , #0 

,#o 

,#0  ,#0 

#0 

,#0  ,#0  ,#0 

, #1C0F07 

, #1F0F0000, #30383830 

#F1F 

,#0  ,#0  , #0 

,  #0 

,  #1C3CF8F0, #FCFC1C1C 

#1C1C1C1C 

, #FCFC  , #0  , #0 

, #38383838 

, #38383838, #38383F3F 

#38383838 

,  #38383838, #3F3F  , #0 

,  #0 

,#0  ,#0 

# 1C3CF8F0 

, #10101010, #3C1C1C1C, #F0F8 

,*0 

,  #0  , #0 

#0 

, #383C1F0F, #38383838, #30383838 

,  #F1F 

,#0  ,#0 

#0 

, #0  , #1C3CF8F0, #0 

, #30100000 

, #F0F8  ,#0 

#0  ,  #0  ,#0  , #383C1F0F, #38383838, #30383838, #F1F 

#0  , #0  , #1C1C1C1C, #1C1C1C1C, #1C1CFCFC, #1C1C1C1C, ficicicic. 


#FCFC  , #0 

,  #o 

,#o 

,#0 

, #383C1F0F, #3F3F3838 

#30383838, #F1F 

,  #0 

,  #0 

,  #0 

,#0  , #1C3CF8F0 

#FCFC1C1C, #0 

, #F8F8 

,  #0 

,  #0 

, #E0F0703  , #E0E0E0E 

#E0E3F3F  , #E0E0E0E 

, #E0E0E0E 

,  #E0E 

,  #0 

, #0  , #3838F0E0 

#0  , #E0E0 

,  #0 

,  #0 

,  #0 

, #0  , #0 

#0  , #0  , #383C1F0F, #38383838, #30383838, #F1F  , #0 

# 1F1F  ,  #0  ,  #0  , #1C1CFCFC, #10101010, #10101010, #10 LOFCFC, 

#3C1C1C1C, #F0F8  , #38383838, #38383838, #38383F3F, #38383838, #38383838, 

#3838  ,  #0  ,  #0  ,  #0  ,  #0  ,  #1C3CF8F0, #1C1C1C1C, 

#10101010, #1010  , #0  , #0  ,#1010101  , #0  , #1010F0F  , 

#1010101  ,#1010101  , #1F1F  ,#0  , #0  , #C0C0C0C0, #0 

#C0C0C0C0, #C0C0C0C0, #00000000, #FCFC  , #0  , #0  , #0  , 

#0  ,#101  , #0  , #0  , #0  ,#1E100000,#70F 

#38383838, #0  , #3838F8F8, #38383838, #38383838, #38383838, #78383838, 

#E0F0  , #38383838, #38383838, #38383838, #3F3F3B39, #3838393B, #3838 

#0  ,  #0  ,  #0  ,  #0  , #E070381C, #8000  , #70E0C080, 

#1038  ,#0  ,#0  ,#1010FOF  ,#1010101  ,#1010101  ,#1010101  , 

#1010101  , #1F1F  ,#0  , #0  ,#C0C0C0C0,#C0C0C0C0,#C0C0C0C0, 

#C0C0C0C0, #00000000, #FCFC  , #0  , #0  , # 0  , #0 

#71737F7F, #71717171, #71717171, #7171  , #0  , #0  , #0 

#0  , #C7CFFE7C, #C7C7C7C7, #C7C7C7C7, #C7C7  , #0  , #0 

#0  , #0  , #38383F3F, #38383838, #38383838, #3838  , #0 

#0  , #0  ,#0  , #1C3CF8F0, #10101010, #10101010, #1C1C 

#0  ,  #0  , #0  , #0  , #383C1F0F, #38383838, #30383838, 

#F1F  ,#0  , #0  , #0  , #0  , #1C3CF8F0, #1C1C1C1C, 

#30101010, #F0F8  , #0  , #0  , #0  , #0  ,#38383F3F, 

#38383838, #38383838, #38383F3F, #38383838, #3838  , #0  , #0 

#1C3CF8F0, #10101010, #30101010, #F0F8  , #0  , #0  , #0 

#0  , #383C1F0F, #38383838, #30383838, #F1F  , #0  , #0 

#0  , #0  , #1C1CFCFC, #10101010, #10101010, #1C1CFCFC, #10101010, 

#1010  , #0  , #0  , #1C1C1F1F, #10101010, #10101010, #1010 

#0  , #0  , #0  , #0  , #1C3CF8F0, #0  , #0 

#0  , #0  , #0  , #0  , #0  , #383C1F0F, #1071E3C  , 

#30380000, #F1F  ,  #0  , #0  , #0  , #0  ,#1C3CF8F0, 

#£0800000, #30103078, #F0F8  , #0  , #0  ,#7070000  ,#7070707  , 

#7073F3F  ,#7070707  ,#7070707  ,#103  , #0  , #0  , #0 

#0  , #F0F0  , #0  , #90100000, #F0F8  , #0  , #0 

#0  , #0  , #38383838, #38383838, #30383838, #F1F  , #0 

#0  , #0  , #0  , #1C1C1C1C, #10101010, #10101010, #FCFC 

#0  ,  #0  ,  #0  , #0  , #10383838, #E0E1C1C  ,#3030707  , 

#101  ,#0  ,#0  , #0  ,#P  , #1C0E0E0E, #38381010, 


#ECE07070, #0000  , #0  , #0  , #0  , #0  ,#70707070, 

#71717171, #3F3F7B7B, #C0C  , #0  , #0  , #0  , #0 

#87870707, #07070707, #7E7EEFEF, #1319  , #0  , #0  , #0 

#0  , #10103833, #707CE0£  , #1C1C0E0E, #3838  , #0  , #0 

#0  , #0  , #70703833, #C0C0E0E0, #7O70E0EO, #3338  , #0 

#0  ,#0  ,#0  , #38383838, #E0E1C1C  ,#3030707  ,#101 
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#3030101  ,#707  ,#0  , #0  , #E0E0E0E  , #1C1C1C1C, #B8B83838, 

#E0E0F0F0, #8080C0C0, #0  , #0  , #0  , #3F3F  ,#3010000  , 

#381C0EO7, #3F3F  , #0  , #0  , #0  , #0  , #381CFCFC, 

#80C0E070, #0  , #FCFC  , #0  , #0  ,#1010000  ,#1010101  , 

#30F0301  ,#1010101  ,#1010101  ,  #0  , #0  , #0  , #C0E0F878, 

#C0C0C0C0, #800080C0, #C0C0C0C0, #EOCOCOCO, #78F8  , #0  , #0 

#1010101  ,#1010101  ,#101  ,#1010101  ,#1010101  ,#101  ,#0 
#0  , #cocococo, #cocococo, #coco  , #cocococo, #cocococo, #coco  , 

#0  , #0  , #1030F0F  ,#1010101  ,#1  ,#1010101  ,#3010101  , 

#F0F  , #0  ,#0  , #C0C08000, #C0C0C0C0,  #E078E0C0,  #C0C0C0C0, 

#C0C0C0C0, #80  , #0  , #0  , #1F0?Q000, #383839  ,#0 

#0  ,  #0  , #0  ,#0  ,#0  , #8E0E0000, #78FCCE  , 

#0  ,#0  ,  #0  ,#0  ,#0  ,#0  ,#3030101  , 

#E0E07 07  , #38381C1C, #7F7F  , #0  , #0  , #0  ,#0 

#80800000, #E0E0C0C0, #38387070, #FCFC  , #0  , #0  , #0 

#0  , #383C1F0F, #38383838, #38383838, #38383838, #30383838, #1010F1F  , 

#707  ,#707  , #1C3CF8F0, #0  , #0  , #0  ,#3C1C0000, 

#C0C0F0F8, #E0E0C080, #80C0  , #10000000, #1C1C  , #38383838, #38383838, 

#30383838, #F1F  , #0  , #0  , #38000000, #3838  , #10101010, 

*10101010,  #10101010, #FCFC  , #0  .#0  ,#1000000  ,#703 

#383C1F0F, #3F3F3838, #30383838, #F1F  , #0  , #0  , #C0E07C38, 

#80  , #1C3CF8F0, #FCFC1C1C, #0  , #F8F8  , #0  , #0 

#7030100  ,#1C0E  , #1F1F  , #1FOFOOOO, #30383830, #F1F  , #0 

#0  , #70E0C080, #1038  , #1C3CF8F0 , #FCFC1C1C, #10101010, #FCFC 

#0  , #0  , #10000000, #1010  , #1F1F  , #1F0F0000, #30383830, 

#F1F  ,  #0  , #0  , #38000000, #3838  , #1C3CF8F0, #FCFC1C1C, 

#10101010, #FCFC  , #0  , #0  , #3070E1C  , #1  , #1F1F 

#1F0F0000, #30383830, #F1F  , #0  , #0  , #80000000, #E0C0 

#1C3CF8F0, #FCFC1C1C, #10101010, #FCFC  , #0  , #0  ,#6060703  , 

#307  , #1F1F  , #1FOFOOOO, #30383830, #F1F  , #0  , #0 

#6060E0C0, #C0E0  , #1C3CF8F0 , #FCFC1C1C, #10101010, #FCFC  , #0  , 

#0  ,  #0  ,  #0  , #383C1F0F, #38383838, #30383838, #1010F1F  , 

#1010000  , #0  , #0  , #0  , #1C3CF8F0, #0  ,#30100000, 

#E0C0F0F8, #C0E07070, #0  ,#7030100  , #1C0E  ,  #383C1F0F,  #3F3F3838, 

#30383838, #F1F  , #0  , #0  , #70E0C080, #1038  ,#1C3CF8F0, 

#FCFC1C1C, #0  , #F8F8  , #0  , #0  , #10000000, #1010 

#383C1F0F, #3F3F3838, #30383838, #F1F  , #0  , #0  ,#38000000, 

#3838  , #1C3CF8F0, #FCFC1C1C, #0  , #F8F8  , #0  , #0 

#10307 0E  , #0  , #383C1F0F, #3F3F3838, #30383838, #F1F  , #0 

#0  , #00800000, #70E0  , #1C3CF8F0, #FCFC1C1C, #0  , #F8F8 

#0  , #0  , #10000000, #1C1C  , #1010F0F  ,#1010101  ,#1010101  , 

#1F1F  , #0  ,#0  , #38000000, #3838  , #C0C0C0C0, #00000000, 

#C0C0C0C0, #FCFC  , #0  , #0  ,#7030100  , #1C0E  ,#1010F0F  , 

#1010101  ,#1010101  , # IF lc  , #0  , #0  , #70E0C080, #1038 

#C0C0C0C0, #C0C0C0C0, #00000000, #FCFC  , #0  , #0  ,#103070E  , 

#0  , #1010F0F  ,#1010101  ,#1010101  , #1F1F  , #0  , #0 

#00800000, #70E0  , #C0C0C0C0, #C0C0C0C0, #C0C0C0C0, #FCFC  , #0 

#0  , #1C1C1C00, #7030000  , #38381C0E, #38383F3F, #38383838, #3838 

#0  , #0  , #38383800, #EOCOOOOO, #10103870, #1C1CFCFC, #1C1C1C1C, 

#1010  , #0  ,#3000000  , #7 0E0E07  ,#7030003  , #38381C0E, #38383F3F, 

#38383838, #3838  , #0  , #EOOOOOOO, #F03833F0, #EOCOOOEO, #10103870, 

#1C1CFCFC, #1C1C1C1C, #1C1C  , #0  , #0  ,#E070301  ,#3F3F001C, 

#38383838, #38383F3F, #38383838, #3F3F  , #0  , #E0000000, #8000 

#FCFC0000, #0  , #E0E0  , #0  , #FCFC  , #0  , #0 

#0  , #0  ,#3073E3C  , #3F1F0303, #73737373, #1C3E  , #0 

#0  , #0  , #0  , #9C9CF870, #FCFC9C9C, #00808080, #78FC 

#0  , #0  ,#7070301  ,#E0E0E0E  , #1C1C1C1C, #38383F3F, #70707070, 

#7070  , #0  , #0  , #E0E0FEFE, #E0E0E0E0, #FCFCE0E0, #E0E0E0E0, 

#E0E0E0E0, #FEFE  , #0  , #0  ,#7030100  , #1C0E  ,#383C1F0F, 

#38383838, #30383838, #F1F  , #0  , #0  , #70E0C080, #1038 

#1C3CF8F0, #10101010, #30101010, #F0F8  , #0  , #0  ,#10000000, 

#1010  , #383C1F0F, #38393838, #30383838, #F1F  , #0  , #0 

#38000000, #3833  , #1C3CF9FQ, flClClClC, #3C1C1C1C, #F0F8  , #0 

#0  , #103070E  , #0  , #383C1FCF, #38333838, #30383838, #F1F 


Final  Report 


#0  ,  #0  , #00800000, #70E0  , #1C3CF8F0, #1C1C1C1C, #3C1C1C1C, 

#F0F8  ,#0  ,#0  ,#7030100  , #1C0E  , #38383838, #38383838, 

#30383838, #F1F  , #0  , #0  , #70E0C080, #1038  , #10101010, 

#10101010, #10101010, #FCFC  , #0  , #0  ,#103070E  , #0 

#38383838, #38383838, #30383838, #F1F  , #0  , #0  ,#00800000, 

#70E0  , #10101010, #10101010, #10101010, #FCFC  , #0  , #0 

#10000000, #1010  , #10383838, #E0E1C1C  ,#3030707  ,#101  ,#3030101  , 

#707  ,#10000000, #1010  , #EOEOEOE  , #10101010, #B8B83838, #E0E0F0F0, 

#80800000, #0  ,#101010  ,  #383C1F0F, #38383838, #38383838, #30383838, 

#F1F  ,  #0  ,#0  ,#383838  ,  #1C3CF8F0,  #10101010, #10101010, 

#30101010, #F0F8  , #0  , #0  ,#101010  , #38383838, #38383838, 

#38383838, #3C38383«, #F1F  , #0  , #0  ,#383838  , #10101010, 

#10101010, #10101010, #30101010, #F0F8  , #0  , #0  ,#1010000  , 

#3F1F0101, #71717179, #1F3F7971, #1010101  , #0  , #0  , #0 

#00000000, #FEFCC0C0, #C0C0C0CE, #FCFECEC0, #C0C0C0C0, #0  , #0 

#0  ,#1010100  ,#1010101  ,#7070101  ,#1010101  , #3F1F0303, #1F3F7373, 

#0  , #0  , #CECEFEFC, #00000000, #F0FQC0C0, #C0C0C0C0, #80808080, 

#1EBFF3C0, #0  , #0  , #38387070, #E0E1C1C  ,#1030707  ,#1011F1F  , 

#1011F1F  ,#101  , #0  , #0  , #E0E0707  , #38381C1C, #C0E07070, 

#C0C0FCFC, #C0C0FCFC, #C0C0  , #0  , #0  , #38383F3F, #38383838, 

#3F3F3838, #3B?«^838, #3838383B, #3838  , #0  , #0  ,#1C3CF8F0, 

#1C1C1C1C, #F0F83C1C, #F8E0E000, #E0E0E0F8, #7CFC  , #0  , #0  , 

#0  ,#1010000  , #F0F0101  ,#3030303  ,#7070303  , #67670707, #3E7F 

#0  , #E6E6FE7C, #C0C0E0E0, #F8F8C0C0, #80808080, #8080  , #0 

#0  , #0  ,#3010000  , #E07  , #1F1F  , #1F0F0000, #3C38383C, 

#F1F  ,  #0  , #0  , #80C0E070, #0  , #1C3CF8F0, #FCFC1C1C, 

#1C1C1C1C, #FCFC  , #0  ,#0  ,#3010000  , #E07  ,#1010F0F  , 

#1010101  ,#1010101  , #1F1F  ,#0  ,#0  , #80C0E070, #0 

#C0C0C0C0, #COCOCOCO, #C0C0C0C0, #FCFC  , #0  , #0  ,#3010000  , 

#E07  , #383C1F0F, #38383838, #30383838, #F1F  , #0  ,#0 

#80C0E070 , #0  , #1C3CF8F0, #1C1C1C1C, #3C1C1C1C, #F0F8  , #0 

#0  ,#3010000  , #E07  ,#38383838, #38383838, #30383838, #F1F 

#0  ,  #0  , #80C0E070, #0  ,  #10101010,  #10101010, #10101010, 

#FCFC  , #0  , #0  , #38391F0E,  #0  , #38383F3F, #38383838 , 

#38383838, #3838  ,  #0  ,#0  , #E0F03838 , #0  ,#1C3CF8F0, 

#10101010, #10101010, #1010  , #0  , #0  , #38391F0E, #30380000, 

#3F3F3E3E, #39393B3B, #38383838, #3838  , #0  , #0  ,#E0F03838, 

#10100000, #10101010, #DCDC9C9C, #7C7CFCFC, #1030  , #0  , #0 

#0  ,  #0  , #1F1F  , #1F0F0000, #30383830, #F1F  , #3F3F 

#0  , #0  , #0  , #1C3CF8F0, #FCFC1C1C, #10101010, #FCFC 

#FCFC  ,  #0  , #0  , #0  ,  #383C1F0F, #38383838, #30383838, 

#F1F  , #3F3F  , #0  , #0  , #0  , #1C3CF8F0, #10101010, 

#30101010, #F0F8  , #FCFC  , #0  ,#3070703  ,#3030000  ,#7070303  , 

#1C1C0E0E, #30383838, #F1F  , #0  , #0  , #80000080, #80800000, 

#8080  , #0  , #30100000, #F0F8  , #0  , #0  , #0 

#0  , #38383F3F, #3838  , #0  , #0  , #0  ,#0 

#0  ,  #0  ,  #FCFC  ,  #0  ,  #0  ,  #0  ,  #0 

#0  , #0  ,#0  , #3F3F  ,#0  ,#0  , #0 

#0  , #0  , #0  , #0  , #1C1CFCFC, #1010  , #0  , 

#0  ,  #0  ,  #0  , #0301000  ,#C0C0C0C  , #1013E3E  ,#7070303  , 

#1C1C0E0E, #3838  , #0  , #0  , #1C1C0E0E, #70703838, #C0C0E0E0, 

# 60 6BEBC  , #30301800, #3E3E  , #0  , #0  , #0301000  , #C0C0C0C  , 

#1013E3E  ,#7070303  , #1C1C0E0E, #3838  , #0  , #0  ,#1C1C0E0E, 

#70703838, #C0C0E0E0, #36369E8E, #FFFF6666, #606  , #0  , #0 

#7 0F0F07  ,#7070000  , #F070707  , #F0F0F0F  , #F0F0F0F  ,#70F  , #0 

*0  ,#808000  ,#0  , #80000000, #80808080, #80808080, #80 

#0  ,  #0  , #0  ,#7070303  , #1C1C0E0E, #1C1C3939, #7070E0E  , 

#303  ,  #0  ,  #0  , #0  , #38389C9C, #E0E07070, #E0E0C0C0, 

#38387070, #9C9C  , #0  , #0  , #0  , #1C1C3939, #707CE0E  , 

#7070303  , #1C1CCECE, #3939  , #0  , #0  , #0  ,#E0E0C0C0, 

#38387070, #38389C9C, #E0E07070, #C0C0  , #0  , #22880000, #22882288, 

#22882288, #22882288, #22882288, #22882288, #22882288, #22882288, #22882283, 
#22882288, #22982283, #22882288, #22932288, #22882288, #22882288, #22882288, 
#AA552288, #AA55AA55, #AA55AA55, #AA55AA55, 4AA55AA55, #AA55AA55, #AA55AA55, 
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#AA55AA55,  #AA55AA55, #AA55AA55, #AA55AA55, #AA55AA55, #AA55AA55, #AA55AA55, 
#AA55AA55, #AA55AA55, #DD77AA55, #DD77DD77 , #DD77DD77, #DD77DD77, #DD77DD77, 
#DD77DD7  7 , #DD77DD77, #DD77DD77, #DD77DD77, IDD77DD77, #DD77DD77, #DD77DD77, 
#DD77DD77, #DD77DD77, #DD77DD77, #DD77DD77, #101DD77  ,#1010101  ,#1010101  , 

#1010101  ,#1010101  ,#1010101  ,#1010101  ,#1010101  , #cocooioi, #cncococo, 

#C0C0C0C0,  #C0C0C0C0,  #C0C0C0C0,  #C0C0C0C0,  #C0C0C0C0,  #COCOCOC'\  *1"  •.  J  , 
#1010101  ,#1010101  ,#1010101  ,#101FFFF  ,#1010101  ,#1010101  ,^010101  , 

#C0C00101, #cocococo, #cocococo, #cocococo, #cocococo, #cocococo,  #cocococo, 

#C0C0C0C0, #101C0C0  ,#1010101  ,#1010101  , #FFFF0101, #FFFF0101, #1010101  , 
#1010101  , #1010101  , #C0C00101, #C0C0C0C0, #C0C0C0C0, #C0C0C0C0, #0000000^, 
#C0C0C0C0, #C0C0C0C0, #C0C0C0C0, #707C0C0  ,#7070707  ,#7070707  .  '"C70707  , 
#7 07FFFF  ,#7070707  ,#7070707  ,#7070707  , #38380707, #381-. -“J3, #38383838, 
#38383838,  #38383838, #38383838, #38383838, #38383838, #3838  , #0 

#0  , #0  , #7 07FFFF  ,#7070707  ,#7070707  ,#7070707  ,#707 

#0  ,#0  , #0  , #3838F8F8, #38383838, #38383838, #38383838, 

#3838  , #0  ,#0  , #FFFF0000, #FFFF0101, #1010101  ,#1010101  , 

#1010101  ,#101  , #0  , #0  , #C0CC0000, #C0C0C0C0, #C0C0C0C0, 

#C0C0C0C0, #C0C0C0C0, #707C0CO  ,#7070707  ,#7070707  , #FFFF0707, #FFFF0000, 
#7070707  ,#7070707  ,#7070707  , #38380707 , #38383838, #38383838, #38383838, 
#383S3838, #38383838, #38383838, #38383838, #7073838  ,#7070707  ,#7070707  , 
#7070707  ,#7070707  ,#7070707  ,#7070707  ,#7070707  , #38380707, #38383838, 
#38383838, #38383838, #38383838, #38383838, #38383838, #38383838, #3838 
#0  ,#0  , #FFFF0000, #FFFF0000, #7070707  ,#7070707  ,#7070707  , 

#707  , #0  , #0  , #F8F80000, #38383838, #38383838, #38383838, 

#38383838, #7073838  ,#7070707  ,#7070707  , #FFFF0707, #FFFF0000, #0 
#0  ,#0  , #38380000, #38383838, #38383838, #38383833, #F8F83838, 

#0  , #0  , #0  ,#7070000  ,#7070707  ,#7070707  ,#7070707  , 

#FFFF  , #0  ,#0  , #0  , #38380000, #38383838, #38383838, 

#38383838, #F8F8  , #0  , #0  , #0  ,#1010000  ,#1010101  , 

#1010101  , #FFFF0101, #FFFF0101, #0  , #0  ,#0  ,#C0C00000, 

#C0C0C0C0, #C0C0C0C0, #C0C0C0C0, #COCOCOCO, #0  , #0  , #0 

#0  ,# 0  , #0  , #0  , #101FFFF  ,#1010101  ,#1010101  , 

#1010101  ,#101  ,#0  , #0  ,#0  , #C0C0C0C0, #C0C0C0C0, 

#C0C0C0C0, #C0C0C0C0, #101COCO  ,#1010101  ,#1010101  ,#1010101  ,#101 
#0  , #0  , #0  , #COCOOOOO, #C0C0C0C0, #C0C0C0C0, #C0C0C0C0, 

#FFFF  ,#0  , #0  ,#0  ,#1010000  ,#1010101  ,#1010101  , 

#1010101  , #FFFF  , #0  , #0  ,#0  , #C0C00000 , #C0C0C0CC , 

#C0C0C0C0, #C0C0C0C0, #FFFF  , #0  , #0  , #0  , #0 

#0  , #0  , #0  , #101FFFF  ,#1010101  ,#1010101  ,#1010101  , 

#101  , #0  , #0  ,#0  , fCCCOFFFF, #C0C0C0C0, #C0C0C0C0, 

#C0C0C0C0, #101COCO  ,#1010101  ,#1010101  ,#1010101  ,#1010101  ,#1010101  , 
#1010101  , #1010101  , #C0C00101, #C0C0C0C0, #C0C0C0C0, #C0C0C0C0, #C0C0FFFF, 
#C0C0C0C0, #C0C0C0C0, #COCOCOCO, #C0C0  , #0  , #0  , #0 

#FFFF  , #0  , #0  , #0  , #0  , #0  , #0 

#0  , #FFFF  ,#0  ,#0  ,#0  ,#1010000  ,#1010101  , 

#1010101  ,#1010101  , #101FFFF  ,#1010101  ,#1010101  ,#1010101  ,#C0C0010l, 

#C0C0C0C0, #C0C0C0C0, #C0C0C0C0, #C0C0FFFF, #C0C0C0C0, #C0C0C0C0, #C0C0C0C0, 
#101C0C0  ,#1010101  ,#1010101  ,#1010101  ,#1010101  ,#1010101  ,#1010101  , 
#1010101  , #C0C00101, #C0C0C0C0, #C0C0C0C0, #FFFFC0C0 , #FFFFC0C0, #C0C0C0C0, 
#C0C0CCC0, #C0C0C0C0, #707C0C0  ,#7070707  ,#7070707  ,#7070707  ,#7070707  , 
#7070707  ,#7070707  ,#7070707  , #33380707, #38383638, #38383838, #38383838, 
#38383F3F, #38383838, #38383833, #38383838, #7073838  ,#7070707  ,#7070707  , 
#7070707  ,#7070707  , #0  , #0  , #0  , #38380000, #38383833, 

#38383838, #3F3F3838, #FFFF0000, #0  , #0  , #0  , #0 

#0  , #0  ,#7070000  ,#7070707  ,#7070707  ,#7070707  ,#7070707  , 

#707  ,#0  ,#0  , #FFFF0C00, #3F3FOOOO, #38383838, #38383338, 

#38383833, #7073833  ,#7070707  ,#7070707  , #FFFF07 07 , #FFFFOOOO , #0 
#0  , #0  , #38380000, #38383838, #38383838, #3F3F3838, #FFFF0000, 

#0  , #0  , #0  ,#0  , #0  , #0  , #?FFFCCC3, 

#FFFF0000, #7070707  ,#7070707  ,#7070707  ,#707  , #0  , #0 

#FFFF0QC0, #3F3FOOOO, #38383838, #33333333, #38383838, #7073833  ,#7070707  , 


#7070707  ,#7070707  ,#7070707  ,#7070707  ,#7070707  ,#707070" 
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#0  ,  #0 
#0  ,  #0 

#7070707  ,#7070707 

#  3F3FOOOO, #38383838 
4FFFF0 101 , #FFFF0000 
#C0C0C0C0, #FFFFC0C0 
#7070707  , #7070707 
#38380000, #38383838 
#0  ,  #0 
#’010101  ,#1010101 

#  C  0C  0C 0C  0 ,  #  C  OC  OC  0C0 

# 7 07FFFF  ,  #7  07  07  07 
#0  , #3838FFFF 

#7070707  , #7070707 
#38383838, #38383838 
#1010000  , #1010101 
#0  , #C0C00000 

#0  ,  #0 
#1010101  ,#1010101 

#  F FFFCOCO ,  #COCOCOCO 

#0  , #7070707 

#0  ,  #0 
#7070707  ,#7070707 
#38380707, #38383838 
#38383838, #1013838 
#1010101  ,#1010101 
#C0C0C0C0, #COCOCOCO 
#FFFF  , #0 

fcocoooco,  #c:oco 
#0  ,  #0 

#0  ,  #  0 

#F FFFCOCO, #FFFFFFFF 
♦FFFFFFFF, #FFFFFFFF 

#  F  F  F  F  F  F  F  F ,  #  F  F  F  F  F  F  F  F 
# FFFFFFFF, # FFFFFFFF 

#  FFFFOOO  0 ,  # FFFFFFFF 

# FFFFFFFF, # FFFFFFFF 
#0  ,  #0 

#0  ,  #0 

#  F  F  F  F 0000,  #  F F F  F  F F  F F 

# FFFFFFFF, # FFFFFFFF 
#0  ,  #0 

#0  ,  #0 

#70707070, #78707070 
#7  8FOOK87 , *38383838 
# EOF. 07 07  ,  #F OF, OF. OF 


#0  , #0  , #FFFF0000, #FFFF0000, #0 

#7070000  ,#7070707  ,#7070707  , HFFFF0707, #FFFFOOOO, 
#7070707  , #38380707, #38383838, #38383838, #3F3F3838, 


#38383838, #38383838, #1013838 
#0  , #0  , #0 

#FFFFOOOO, #0  , #0 

#7070707  , #FFFF  , #0 

#38383838, #38383838, #FFFF 
#0  ,#0  , #FFFFOOO 

#101  , #0  , #0 


#1013838  ,#1010101  ,#1010101  , 
#0  ,  #COCOOOOO, #COCOCOCO, 

#0  ,  #0  ,  #7070000  , 

#0  , #0  ,#0 

#FFFF  , #0  , #0 

#FFFFOOOO, IFFFFOOOO, #1010101  , 
#0  ,  #FFFFOOOO,  # FFFFOO 00 , 


# COCOCOCO, #COCO  , #0  , #0  , #0 

#7070707  ,#7070707  ,#707  ,#0  , #0 

#38383838, #38383838, #38383838, #7073838  ,#7070707  , 
#707  ,  #0  , # 0  , #0  ,#38380000, 

#38383838, #FFFF  ,#0  , #0  , #0 

#1010101  ,#1010101  ,#1010101  ,#0  ,#0 

#COCOCOCO, #COCOCOCO,  #  FFFFCOCO , #FFFFCOCO,  #0 
#0  ,#0  ,#0  ,#1010000  ,#1010101  , 

#1010101  ,#101  , #0  , #0  , # FFFFOO 00 , 

#COCOCOCO, #COCOCOCO, #COCO  , #0  ,#0 

#7070707  ,#7070707  ,#7070707  ,#707  , #0 

#  3838FFFF, #38383838, #38383838,  #38383838, #7073838  , 

#7070707  , #707FFFF  ,#7070707  ,#7070707  ,*7070707  , 
#38383838, #38383838, *3838FFFF, #38383838, #38383838, 
#1010101  ,#1010101  , #FFFF0101, #FFFF0101, #1010101  , 
#C0C00101,  #C0C0C0C0, #COCOCOCO, #FFFFCOCO, #FFFFC0C0, 
#C0C0C0C0, # 101C0C0  ,#1010101  ,#1010101  ,#1010101  , 
#0  ,  #0  ,  #COCOOOOO, #C0C0C0C0, #cococooo, 

#0  , #0  ,#0  ,#0  , #0 

#1010101  ,#1010101  ,*1010101  ,#1010101  ,#101 

#0  , HC0C0FFFF, #C0C0C0C0, #COCOCOCO, #COCOCOCO, 

# FFFFFFFF-,  *FFF FFFFF,  # FFFFFFFF,  # FFFFFFFF,  #FFFFFFFF, 

#  FFFFFFFF,  #  FFFFFFFF,  HFFFFFFFF,  #FFFFFFFF,  If  FFFFFFFF, 

HFFFF  ,#0  ,#0  , # 0  , HFFFFOOOO, 

# FFFFFFFF, #FFFF  , #0  , #0  ,#0 

# FFFFFFFF, #FF FFFFFF, HFFFFFFFF, # FFFFFFFF, # FFFFFFFF, 
# FFFFFFFF, # FFFFFFFF, #FFFFFFFF, #FFFF  , #0 

#0  ,  #0  ,  #0  ,  #0  ,  #0 

#0  ,#0  ,#0  ,#0  ,#0 

1  FFFFFFFF,  # FFFFFFFF,  # FFFFFFFF,  #FFFFFFFF,  #FFFFFFFF, 
# FFFFFFFF, # FFFFFFFF, # FFFFFFFF, #FFFF  , *0 

HFFFF000C,  # FFFFFFFF,  #FFFFFFFF,  # FFFFFFFF,  #  FFFF  , 

#0  ,  #0  , #0  ,10  , #7078 3 FI F, 

# 1 F  3  F  ,#0  , #0  ,  #0  ,  #0 

#FC7 8 3 8 3 8 ,  # 07 EK  ,  #0  ,#0  ,#7070707  , 

# 1C101010, #3F3F1010, #38383838, #3838  , #0 


# 1O1OF8F0, 

#7  0 3  8  1C  1C, 

*  383870F.0,  #  1C101010 

f 

4K0F0783O, 

*0 

*0 

#0 

#  3  8  3  8  3  F  3  F , 

#  383838  38, *  38  883838 

! 

#38383838, 

#  3  8  3  8  3  8  3  8  , 

#  3  8  3  8 

/ 

*0 

#0 

4COCFCFO  , #0 

t 

#0 

#0 

#0 

#0 

#0 

*0  ,  #0 

t 

*0 

#  fS  K  h  K  3  F*  1  F , 

#10'  100K01 

#38181  0  i  r , 

#  18  38 

*0  ,  #0 

/ 

#0 

#0 

#3838  FKF1- 

*  7  0  7  0  3  8  3  8 , 

#  F.  0F.07  07  0, 

#  KOKO  , #0 

/ 

#0 

# 1010  IF  IF, 

#7 070K0K 

#  1010  3 0  3  , 

#7070303  , 

# 101COKOK,  *  3F3F 

f 

#0 

#0 

fOOCFOFO 

/ 

#0 

#00(10  8080, 

#8080  , #0000000 

t 

#  FOFO 

#0 

#0 

, 

#0 

#0 

f  7  0  7  8  3  F 1 F ,  #70707070 

/ 

#7870707 0, 

#  1  F  3  F 

#0 

/ 

#0 

#0 

#0  , 43870FFFF 

#  18  38  3 8 3  8 , 

#783 8  3  838, 

#EOFO 

, 

*0 

#0 

#0  ,  #0 

/ 

fKOKOF.OK  , 

*K0K0F.0K  , 

#FOK.OKOK 

/ 

#  HOF.  OF.  OF  , 

f6F.OF.0K  OK, 

*  307 K  ,  #0 

/ 

$  l#  f 

#7070707  , 

#707070 7 

f 

4  r  ' »  /  U  /  f  i  1  , 

, 
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/ 
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/ 

#'■ 

*0 

#7 

, 

#'10' :  OF1  ifo , 

#•;•.••  /: 

*  0,8  i  ,  #0 

/ 

#0  , 

an  r 

9 :  , ?  t  /  f . ; 

, 

#  FOFO 1 0 1  , 

#  l ' :  i  o  i  - : ;  ■  • , 

»f',f  :  o :  •  ■; : 

#'";7 

#■’ 

4  ■  ■ 

, 

#'-OrOKOFO, 

rf  [•’  -  ;■ 

*  !  • ;  ' :  —  a  ;  -  * ;  • 

/ 
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a  io 

> 

^ 

, 

#  0  , 

•l  ■  -!  •  O',  ^  . 

, 

a  - 

1  /  . 

, 
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#0  ,  #0  , #1C3CF8F0, #1C1C1C1C, #FCFC1C1C, #1C1C1C1C, #3C1C1C1C, 

#F0F8  ,  #0  ,  #0  , #383C1F0F, #38383838, #38383838, #38383838, 

#E0E1C1C  , #3E3E  ,  #0  , #0  ,  #1C3CF8F0, #1C1C1C1C, #1C1C1C1C, 

#1C1C1C1C, #70703838, #7C7C  , #0  , #0  ,#3030100  ,#101 

#383C1F0F, #38383838, #3C383838, #F1F  , #0  , #0  , #  C8CF8F0, 

#E0E0C0C0, #1C3CF8F0, #1C1C1C1C, #3C1C1C1C, #F0F8  , #0  , #0 

#0  , #0  , #71733F1E, #1E3F7371, #0  ,#0  , #0 

#0  , #0  , #0  , #C7E77E3C,#3C7EE7C7, #0  , #0 

#0  ,  #0  , #0  , #F070000  , #1C1C1C1C, #1D1D1D1D, #303070F  , 

#303  ,#0  , #0  , #60600000, #F8F06060, #DCDCDCDC, #9C9C9C9C, 

#F0F8  ,  #0  , #0  , #0  , #E0F07  03  , #38381C1C, #3F3F3838, 

#38383838, #F0E1C1C  ,#307  , #0  , #0  , #FCFC  , #0 

#FCFC0000 , #0  , #0  , #FCFC  , #0  , #0  , #383C1F0F, 

#38383838, #38383838, #38383838, #38383838, #3838  , #0  , #0 

#1C3CF8F0, #1C1C1C1C, #1C1C1C1C, #1C1C1C1C, #1C1C1C1C, #1C1C  , #0 

#0  ,  #0  ,#0  , #3F3F  , #3F3F  , #3F3F  , #0 

#0  , #0  , #0  , #0  , #FCFC  , #FCFC  , #FCFC 

#0  ,  #0  , #0  ,#0  ,#3030000  ,#3F3F0303, #3030303  , 

#3F3F0000, #0  ,#0  , #0  ,#0  , #80800000, #F8F8808C, 

#80808080, #F8F80000, #0  , #0  , #0  , #0  ,#3030707  , 

#101  ,#0  ,#3030101  ,#707  , #1F1F  , #0  , #0 

#80800000, #E0E0C0C0, #E0E07070, #8080C0C0, #0  , #F0F0  , #0  , 

#0  ,#1010000  ,#7070303  , #7070E0E  ,#1010303  , #0  , #F0F  , 

#0  , #0  , #C0C0E0E0, #8080  , #0  , #COC08080, #E0E0 

#F0F0  , #0  , #0  , #0  ,#0  ,#0  , #0 

#1010000  ,#1010101  ,#101  , #0  , #E0E6FE7C, #E0E0E0E0, #E0E0E0E0, 

#E0E0E0E0, #C0C0E0E0, #C0C0C0C0, #101C0C0  ,#1010101  ,#3030101  ,#3030303  , 
#3030303  ,#3030303  , #1F3F3303, #0  , #C0C00000, #C0C0C0C0, #8080C0C0, 

#80808080, #80808080, #80808080, #808080  , #0  , #0  , #0 

#3070703  ,#3F3F0000, #7030000  ,#307  , #0  ,#0  , #0 

#0  ,#80C0C080, #F8F80000, #C0800000, #80C0  , #0  , #0 

#0  , #0  ,#1F0F0000, #3839  , #38391F0F, #0  ,#0 


#0 

,  #o 

,#0 

, #9C1C0000, 

#F0F8  , #F0F89C1C, #0  , 

#0 

,  #0 

,  #0 

, #E0E0703  , 

#3070EOE  ,#0  ,#0 

#0 

,#0 

,#0 

,#0 

#3838F0E0, #E0F03838, #0 

#0 

,#0 

,  #0 

,  #o 

#0  ,#7070300  ,#30707 

#0 

,  #0 

,  #0 

,#o 

#0  ,#0  , #E0E0C000, 

#C0E0E0 

,#0 

,  #0 

,  #o 

#0  ,  #0  ,  #0 

#0 

, #3000000 

, #7070707 

/  #3 

#0  ,#0  ,#0 

#0  ,  #0  , #00000000, #E0E0E0E0, #C0  , #0  , #0 

#0  ,  #0  ,#0  , #0  , #0  ,#1C1C7878,#7070E0E  , 

#1010303  , #0  , #7F7F0000, #70707070, #70707070, #70707070, #70707070, 

#70707070, #F0F0F0F0, #7070F0F0, #0  ,#6060707  ,#6060606  ,#606 

#0  ,#0  ,  #0  ,  #0  ,  #0  , #6060C080, #60606060, 

#6060  , #0  , #0  , #0  , #0  , #0  ,#707 

#6060301  ,#707  , #0  , #0  , #0  , #0  , #0 

#6060E0C0, #80C0  , #E0E0  , #0  ,#0  , #0  , #0 

#0  ,#0  ,#7070000  ,#7070707  ,#7070707  , #0  , #0 

#0  , #0  , #0  , #E0E00000, #E0E0E0E0, #E0E0E0E0, #0 

#0  ,  #0  ,  #0  ,  #383C1F0F, #77777370, #77777777, #77777777, 


#30387073, #F1F  , #0 

,  #0 

, #E1EFCF8 

, #37F7E707, #7070737  , 

#F7  37  37  07 , #1E0E07E7, #F8FC 

,  #0 

,  #0 

,#0  ,#0 

#0  ,  #0  ,  #0 

,  #0 

,  #0 

,#0  , #0 

#0  ,  #0  ,  #0 

,  #0 

,  #0 

, #0  , #1A1A0000] 
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6.2.3.  Make  files 

LIBRARIAN=ilibr 

OCCAM=occam 

LINK=ilink 

CONFIG=iconf 

ADDBOOT=iboot 

LIBOPT= 

OCCOPT=/a 

LINKOPT= 

CONFOPT= 

BOOTOPT= 

seeker. btl:  seeker. pgm  controll.t8h  guidance. t8h  xbar.t2h  gtsei.t2h  \ 

backgrou.t8h  targetle.t8h  target. t8h  spcontro.t8h  sp.t4h 
firstbuf.t8h  \ 

secondbu.t8h  formatte.t8h  imagedis.c8h  trackdis.c8h  b409stub.c2h 

\ 

hostseek . c8h 

S (CONFIG)  seeker  /o  seeker. btl  $(CONFOPT) 

HostSeek . c8h :  HostSeek. 18h  HostSeek. t8h 

$ ( LINK)  /f  HostSeek. 18h  /o  HostSeek. c8h  $(LINKOPT) 

HostSeek  .  t8h :  HostSeek. occ  s_header.inc  c:\itools\libs\hostio.inc  \ 

c:\itools\libs\hostio.lib  c:\itools\libs\hostio.liu  \ 
c:\itools\libs\convert.lib  gif.c8h  loader. c8h  runseekr.c8h 
$ (OCCAM)  HostSeek  /t8  /h  /o  HostSeek. t8h  $ (OCCOPT) 

gif.c8h:  gif,18h  gif.t8h 

$ (LINK)  /f  gif . 18h  /o  gif.c8h  $(LINKOPT) 

gif.t8h:  gif. occ  c:\itools\libs\hostio.inc  c:\itools\libs\hostio.lib 

\ 

c : \itools\libs\hostio . liu  c:\itools\libs\convert . lib 
$ (OCCAM)  gif  /t8  /h  /o  gif.t8h  $ (OCCOPT) 

loader. c8h:  loader. 18h  loader. t8h 

$  (LINK)  /f  loauer .  18h  /o  loader. c8h  $(hlNKOPT) 

loader. t8h:  loader. occ  s_header.inc  c:\itools\libs\hostio.inc  \ 
c:\itools\libs\hostio.lib  c:\itools\libs\hostio.liu  \ 
c : \itools\libs\convert . lib 
$ (OCCAM)  loader  /t8  /h  /o  loader. t8h  $ (OCCOPT) 

runseekr . c8h :  runseekr.l8h  runseekr.tSh 

$ (LINK)  /f  runseekr. 18h  /o  runseekr. c3h  S(LINKOPT) 

runseekr.tSh:  runseekr. occ  s_header.inc  c:\itools\libs\hostio.inc  \ 

c:\itools\libs\hostio.lib  c:\itools\libs\hostio.liu  \ 
c : \ it oo Is \libs\ convert . lib 
$ (OCCAM)  runseekr  /t3  /h  /o  runseekr. t8h  $ (OCCOPT) 

controll . t3h :  controll.occ  s_header.inc 

S (OCCAM)  controll  /t8  /h  /o  controll. t8h  $ (OCCOPT) 

guidance . t8h :  guidance. occ  s_header.inc 

$  i OCCAM)  guidance  ,'t5  ,'h  /'o  guidance. tSh  $  (COCOPT) 

xbar.tOh:  xbar.occ  s_header  .  ir.c 

$  (OCC PM)  xbar  /t2  /h  /o  :<bar.t2h  3  (OCCOPT) 

gtsei.tCh:  gtsei.occ  s  header  .ir.c 


li 
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$ (OCCAM)  gtsei  /t2  /h  /o  gtsei.t2h  $ (OCCOPT) 


backgrou . t8h : 

$ (OCCAM) 


backgrou. occ  s_header.inc 
backgrou  /t8  /h  /o  backgrou. t8h  $ (OCCOPT) 


targetle . t8h : 

$ (OCCAM) 


targetle. occ  s_header.inc 
targetle  /t8  /h  /o  targetle. t8h  $ (OCCOPT) 


target. t8h:  target. occ  s_header.inc 

$ (OCCAM)  target  /t8  /h  /o  target. t8h  $ (OCCOPT) 


spcontro . t8h :  spcontro.occ  s_header.inc 

$ (OCCAM)  spcontro  /t8  /h  /o  spcontro. t8h  $ (OCCOPT) 

sp.t4h:  sp.occ  s_header.inc 

$ (OCCAM)  sp  /t4  /h  /o  Sp.t4h  $ (OCCOPT) 

f irstbuf . t8h :  firstbuf.occ 

$ (OCCAM)  f irstbuf  /t8  /h  /o  firstbuf.t8h  $ (OCCOPT) 

secondbu . t8h :  secondbu.occ 

$ (OCCAM)  secondbu  /t8  /h  /o  secondbu. t8h  $ (OCCOPT) 


formatte . t8h :  formatte.occ 

$ (OCCAM)  formatte  /t8  /h  /o  formatte. t8h  $ (OCCOPT) 

imagedis . c8h :  imagedis.l8h  imagedis.t8h 

$ (LINK)  /f  imagedis. 18h  /o  imagedis. c8h  $(LINKOPT) 


imagedis .t8h:  imagedis. occ  crtc.inc  g_header.inc 

c:\itools\libs\convert.lib  \ 

graphics. lib  s_header.inc 
$ (OCCAM)  imagedis  /t8  /h  /o  imagedis. t8h  $ (OCCOPT) 

graphics . lib:  graphics. lbb  b409.t2h  g_line.t8h  g_system.t8h 

g_text . t8h 

$ (LIBRARIAN)  /f  graphics . lbb  /o  graphics. lib  $(LIBOPT) 

b409.t2h:  b409.occ  crtc.inc 

$ (OCCAM)  b409  / t2  /h  /o  b409.t2h  $ (OCCOPT) 


g_line.t8h:  g_line.occ  g_header.inc 

$ (OCCAM)  g_line  /t8  /h  /o  g_line.t8h  S (OCCOPT) 

g_system. t8h :  g_system.occ  crtc.inc  g_header.inc 

$ (OCCAM)  g_system  /t8  /h  /o  g_system.t8h  $ (OCCOPT) 

g_text.t8h:  g_text.occ  g_header.inc 

$ (OCCAM)  g_text  /t8  /h  /o  g_text.t8h  $ (OCCOPT) 

trackdis . c8h :  trackdis.l8h  trackdis.t8h 

$ (LINK)  /f  trackdis. 18h  /o  trackdis. c8h  $(LINKOPT) 


trackdis . t8h :  trackdis. occ  s_header.inc  g_header.inc  crtc.inc  \ 

c:\itools\libs\convert.lib  graphics. lib  sys6.inc 
$ (OCCAM)  trackdis  /t8  /h  /o  trackdis. t8h  $ (OCCOPT) 

b409s.-ub.c2h:  b409stub.l2h  b409stub.t2h 

$ (LINK)  / f  b409stub . 12h  /o  b409stub.c2h  $(LINKOPT) 

b409stub . t2h :  b409stub.occ  crtc.inc  graphics. lib 

S (OCCAM)  b409stub  / t2  /h  /o  b409stub . t2h  2 (OCCOPT) 


Final  Report 


LIBRARIAN=ilibr 

OCCAM=occam 

LINK=ilink 

CONFIG=iconf 

ADDBOOT=iboot 

LIBOPT= 

OCCOPT= 

LINKOPT= 

CONFOPT= 

BOOTOPT= 

hostseek . c8h :  hostseek,18h  hostseek.t8h 

$ (LINK)  /f  hostseek. 18h  /o  hostseek. c8h  $(LINKOPT) 

hostseek . t8h :  hostseek. occ  s_header.inc  c:\itools\libs\hostio.inc  \ 

c:\itools\libs\hostio.lib  c:\itools\libs\hostio.liu  \ 
c : \itools\libs\convert . lib 
$ (OCCAM)  hostseek  /t8  /h  /o  hostseek. t8h  $ (OCCOPT) 
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LIBRARIAN=ilibr 

OCCAM=occam 

LINK=ilink 

CONFIG=iconf 

ADDBOOT=iboot 

LIBOPT= 

OCCOPT= 

LINKOPT= 

CONFOPT= 

BOOTOPT= 

graphics. lib:  graphics . Ibb  b409.t2h  g_line.t8h  g_system.t8h 

g_text . t8h 

$ (LIBRARIAN)  /f  graphics . Ibb  /o  graphics. lib  $(LIBOPT) 

b409.t2h:  b409.occ  crtc.inc 

$ (OCCAM)  b409  /t2  /h  /o  b409.t2h  $ (OCCOPT) 

g_line.t8h:  g_line.occ  g_header.inc 

$ (OCCAM)  g_l ine  /t8  / h  /o  g_line.t8h  $ (OCCOPT) 

g_system. t8h :  g_system.occ  crtc.inc  g_header.inc 

$ (OCCAM)  g_system  /t8  /h  /o  g_system.t8h  $ (OCCOPT) 

g_text.t8h:  g_text.occ  g_header.inc 

$ (OCCAM)  g_text  /t8  /h  /o  g_text.t8h  $ (OCCOPT) 
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LIBRARIAN=ilibr 

OCCAM=occam 

LINK=iliak 

CONFIG=iconf 

ADDBOOT=iboot 

LIBOPT= 

OCCOPT= 

LINKOPT= 

CONFOPT= 

BOOTOPT= 

test.b8h:  test.c8h 

$ (ADDBOOT)  test . c8h  /o  test.b8h  $(BOOTOPT) 

test.c8h:  test.l8h  test.t8h 

§ (LINK)  /f  test . 18h  /o  test.c8h  $ (LINKOPT) 

test.tSh:  test.occ  c:\itools\libs\hostio.inc  c:\itools\libs\hostio.lib 

\ 

c : \itools\libs\hostio . liu  c : \ it ools\libs\ convert . lib 
$ (OCCAM)  test  /t8  /h  /o  test.t8h  $ (OCCOPT) 
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6.2.4.  Link  command  files 

—  Version  2.80,  28th  April  1989 

—  linker  command  file  "gif.l8h" 

gif . t8h 
hostio . lib 
convert . lib 
occam8h . lib 
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—  Version  2.80,  28th  April  1989 

—  linker  command  file  "gif02.18h" 

gif02 ,t8h 
hostio . lib 
convert . lib 
occam8h . lib 
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—  Version  2.80,  28th  April  1989 

—  linker  command  file  "b409stub . 12h" 


b409stub . t2h 
graphics . lib 
occam2h . lib 
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--  Version  2.80,  28th  April  1989 

—  linker  command  file  "HostSeek . 18h" 

HostSeek . t8h 
=gif 02 . t8h 
=loader . t8h 
=runseekr . t8h 
hostio . lib 
convert . lib 
gif 02 . c8h 
loader . c8h 
runseekr . c8h 
occam8h .lib 
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—  Version  2.80,  28th  April  1989 

—  linker  command  file  "test.l8h" 

test .t8h 
hostio . lib 
convert . lib 
occam8h . lib 
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--  Version  2.80,  28th  April  1989 

—  linker  command  file  "trackdis . 18h" 

trackdis . t8h 
convert . lib 
graphics . lib 
occam8h . lib 
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--  Version  2.80,  28th  April  1989 

--  linker  command  file  "imagedis . 18h" 

imagedis . t8h 
convert . lib 
graphics . lib 
occam8h . lib 
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--  Version  2.80,  28th  April  1989 

--  linker  command  file  "loader. 18h" 

loader . t8h 
hostio . lib 
convert . lib 
occam8h . lib 
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--  Version  2.80,  28th  April  1989 

--  linker  command  file  "runseekr . 18h" 

runseekr . t8h 
hostio .  lib 
convert . lib 
occam8h . lib 
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6.2.5.  Motherboard  C004  Configuration 

bO 

;  Connect  to  VAX 
sO  3  t  el  . 

;  Foreground  Connections 
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si  0 

t 

sl5  3  . 

si  3 

t 

eO  . 

bl9 

;  Second  Graphics 
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;  Signal  Processing 
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